help with Perl Mechanize
From: zoewu (whorl1quote-other_at_yahoo.com)
Date: 02/27/04
- Next message: joe: "Problems getting ftp to take my password"
- Previous message: James Willmore: "Re: DBI problems"
- Next in thread: CodePoint: "Re: help with Perl Mechanize"
- Reply: CodePoint: "Re: help with Perl Mechanize"
- Reply: CodePoint: "Re: help with Perl Mechanize"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: 27 Feb 2004 12:42:51 -0800
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();
- Next message: joe: "Problems getting ftp to take my password"
- Previous message: James Willmore: "Re: DBI problems"
- Next in thread: CodePoint: "Re: help with Perl Mechanize"
- Reply: CodePoint: "Re: help with Perl Mechanize"
- Reply: CodePoint: "Re: help with Perl Mechanize"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
