Loading ...
Sorry, an error occurred while loading the content.
 

help with Perl Mechanize

Expand Messages
  • tsai_wanyu
    Would anyone help me with this little script that I tried to get some contents from Yahoo Personals by using Perl Mechanize. It doesn t return any results,
    Message 1 of 1 , Feb 27, 2004
      Would anyone help me with this little script that I tried to get some
      contents from Yahoo Personals by using Perl Mechanize. It doesn't
      return any results, although I've feed all kinds of browser headers.
      Do I miss anything? Any comment is highly appreciated!!

      ------------------------------------


      #!/usr/bin/perl -w

      use WWW::Mechanize;
      use strict;

      my $mech=WWW::Mechanize->new();

      $mech->add_header(HTTP_ACCEPT => 'image/gif, '*/*');
      $mech->add_header(HTTP_ACCEPT_ENCODING => 'gzip, deflate');
      $mech->add_header(HTTP_ACCEPT_LANGUAGE => 'en-us');
      $mech->add_header(HTTP_CONNECTION => 'Keep-Alive');
      $mech->add_header(HTTP_USER_AGENT => 'Mozilla/4.0 (compatible; MSIE
      6.0; Windows NT 5.0; yie6; Q312461; .NET CLR 1.0.3705; .NET CLR
      1.1.4322)');
      $mech->add_header(REQUEST_METHOD => 'GET');
      $mech->add_header(Referer => 'http://personals.yahoo.com/');
      $mech->get("http://personals.yahoo.com/");
      $mech->success or die $mech->response->status_line;

      $mech->form_number(1);
      $mech->field('r_gender_pref' => "1");
      $mech->field('r_gender' => "2");
      $mech->field('r_min_age' => "25");
      $mech->field('r_max_age' => "35");
      $mech->field('csz' => "94011");
      $mech->submit();

      $mech->success or die "post failed:",$mech->response->status_line;

      print $mech->content();
    Your message has been successfully submitted and would be delivered to recipients shortly.