| 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 |