Thanks so much for the help! I did get it working however it only seems to fetch the first 7 and then the error message appears:
Internal Server Error at newp line 14
Using the following code:
#!/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; $mech_cgi->back; }
is this a fault with their server or my script?
many thanks and best wishes
Dan
In reply to Re^2: WWW:Mechanize bug?
by fraizerangus
in thread WWW:Mechanize bug?
by fraizerangus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |