That'S what I did. But when I run a programme (see below) that uses the uri-routine, I get the following response: "Can't locate object method uri via WWW::Mechanize::Link". Furthermore, 9 tests and 14 subtests of nmake test were skipped.
#!/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;
};
|