archivos
Código
#!usr/bin/perl #Simple downloader in Perl #By Doddy H use LWP::UserAgent; my $nave = LWP::UserAgent->new; $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"); $nave->timeout(5); sub download { if ($nave->mirror($_[0],$_[1])) { if (-f $_[1]) { return true; }}}
Sintasis
Código
download(url a bajar,nombre de archivo con el que se guarda);
Ejemplo de uso
Código
if (download("http://127.0.0.1/bones.rar","bones.rar")) { }