in reply to Re: WWW::Mechanize 1.04 for Windows
in thread WWW::Mechanize 1.04 for Windows
#!/usr/bin/perl -w use strict; use WWW::Mechanize; my $agent = WWW::Mechanize->new(); $agent->get("http://europa.eu.int/prelex/rech_avancee.cfm?CL=en"); die "Can't even get the home page: ", $agent->response->status_line un +less $agent->success; $agent->form(2); $agent->field("clef2", "1999"); $agent->field("clef1", 'COM'); $agent->field("nbr_element", '99'); $agent->click(); my $input=$agent->content(); my @links = grep { $_->uri =~ m!liste_resultats! } $agent->links; foreach my $link (@links) { print "Retrieving $link\n"; $agent->follow( $link ); print $agent->content; $agent->back; };
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: WWW::Mechanize 1.04 for Windows
by ikegami (Patriarch) on Nov 26, 2004 at 19:37 UTC | |
|
Re^3: WWW::Mechanize 1.04 for Windows
by bart (Canon) on Nov 28, 2004 at 03:25 UTC |