I figure I could replace $mech->get($link); with system("wget -c " . $link->url_abs);, but I'd prefer to do it in Perl. Is there an easy way?#!/usr/bin/perl use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new; $mech->env_proxy; my $url = "http://127.0.0.1/downloads/index.html"; $mech->get($url); my $link = $mech->find_link(text_regex => qr/really big download/i); $mech->get($link); __END__
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |