$ perl
use WWW::Mechanize;
my $ua = WWW::Mechanize->new( autocheck => 1 );
$ua->get('http://www.gtk.org/download/win32.php');
my $bundle = $ua->find_link('text' => 'bundle')->url_abs;
die $bundle;
__END__
Can't call method "url_abs" on an undefined value at - line 4.
$ perl
use WWW::Mechanize;
my $ua = WWW::Mechanize->new( autocheck => 1 );
$ua->get('http://www.gtk.org/download/win32.php');
my $bundle = $ua->find_link('text' => qr/bundle/i )->url_abs;
die $bundle;
__END__
(?^i:bundle) passed as 'text' is a regex at - line 4
http://www.gtk.org/css/global.css
$ perl
use WWW::Mechanize;
my $ua = WWW::Mechanize->new( autocheck => 1 );
$ua->get('http://www.gtk.org/download/win32.php');
my $bundle = $ua->find_link('text_regex' => qr/bundle/i )->url_abs;
die $bundle;
__END__
http://ftp.gnome.org/pub/gnome/binaries/win32/gtk+/2.24/gtk+-bundle_2.
+24.8-20111122_win32.zip
|