Perl Programming | ||
---|---|---|
WWW::Mechanize | ||
use WWW::Mechanize; my $mech = new WWW::Mechanize(autocheck => 1); # Die if I/O fails $mech->get('http://www.download.com/'); my @links = $mech->find_all_links( tag => "a", text_regex => qr/\bdownload\b/i ); for my $l (@links) { print $l->text, "\n"; } |
||
Previous | http://stuff.mit.edu/iap/perl/ | Next |