[Perl] Funcion download()

[BigBear]

HOla aca les traigo una funcion para descargar
archivos

Código (perl) [Seleccionar] Expandir


#!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 (perl) [Seleccionar] Expandir


download(url a bajar,nombre de archivo con el que se guarda);


Ejemplo de uso

Código (perl) [Seleccionar] Expandir


if (download("http://127.0.0.1/bones.rar","bones.rar")) {
print "[+] file downloaded\n";
}