Re: help with Perl Mechanize

• Previous message: joe: "Problems getting ftp to take my password"
• In reply to: zoewu: "help with Perl Mechanize"
• Next in thread: CodePoint: "Re: help with Perl Mechanize"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]

Date: Fri, 27 Feb 2004 23:27:57 +0100

zoewu wrote:

> 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");#!/usr/bin/perl5.8.2 -w
use strict;
use WWW::Mechanize;
use WWW::Mechanize::FormFiller;
use URI::URL;

my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();

  $agent->get('http://personals.yahoo.com/');
    $agent->form(1) if $agent->forms and scalar @{$agent->forms};
  $agent->get('http://personals.yahoo.com/');
    $agent->form(1) if $agent->forms and scalar @{$agent->forms};
  $formfiller->add_filler( 'r_gender_pref' => Fixed => '1' );
  $formfiller->add_filler( 'r_gender' => Fixed => '2' );
  $formfiller->add_filler( 'r_min_age' => Fixed => '25' );
  $formfiller->add_filler( 'r_max_age' => Fixed => '35' );
  $formfiller->add_filler( 'r_has_photo' => Fixed => '2' );
  $formfiller->add_filler( 'r_radius' => Fixed => '24' );
  $formfiller->add_filler( 'csz' => Fixed => '94011' )
$formfiller->fill_form($agent->current_form);
  $agent->submit();
  print $agent->content,"\n";

/CodePoint
> $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();

Do not see your problem, but this works:

• Previous message: joe: "Problems getting ftp to take my password"
• In reply to: zoewu: "help with Perl Mechanize"
• Next in thread: CodePoint: "Re: help with Perl Mechanize"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]