help with Perl Mechanize

B

bernice tsai

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();
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

Forum statistics

Threads
473,744
Messages
2,569,482
Members
44,901
Latest member
Noble71S45

Latest Threads

Top