I tried to use this script (that comes with the HTTP::Form::Request), but
I got this error:
"Button search not included in form at
/usr/lib/perl5/site_perl/5.005/HTTP/Reques t/Form.pm line 306. "
Can anyone tell me what is the problem ?
Here's the script:
# /usr/bin/perl -w
use HTML::TreeBuilder;
use URI::URL;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;
use HTTP::Request::Form;
use LWP::Debug;
my $ua = LWP::UserAgent->new;
my $url = url 'http://www.altavista.digital.com/';
my $res = $ua->request(GET $url);
my $tb = HTML::TreeBuilder->new;
$tb->parse($res->content);
my @forms = @{$tb->extract_links(qw(FORM))};
my $f = HTTP::Request::Form->new($forms[0][1], $url);
$f->field("q", "perl");
my $response = $ua->request($f->press("search"));
print $response->content if ($response->is_success);
--
Nick...
