Hello Again
WWW::Mechanize does seem to be the right medicine but I've already hit a snag on the road; I'm only interested in following the 'motion.cgi' links and extracting these links as text documents however the regex I've used only finds the first 2 links? Any ideas on whats going on?
#!/usr/bin/perl
use strict;
use WWW::Mechanize;
use Storable;
my $mech_cgi = WWW::Mechanize->new;
$mech_cgi->get( 'http://www.molmovdb.org/cgi-bin/browse.cgi' );
my @cgi_links = $mech_cgi->find_all_links( url_regex => qr/motion.cgi?
+/ );
for(my $i = 0; $i < @cgi_links; $i++) {
print "following link: ", $cgi_links[$i]->url, "\n";
$mech_cgi->follow_link( url => $cgi_links[$i]->url )
or die "Error following link ", $cgi_links[$i]->url;
}
best wishes
Dan