Ando queriendo saber cómo calcular el porcentaje de descarga de un archivo.
Pues tengo este código:
Using perl Syntax Highlighting
- 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);
- if (download("http://127.0.0.1/bones.rar","bones.rar")) {
- print "[+] file downloaded\n";
- }
- sub download {
- if ($nave->mirror($_[0],$_[1])) {
- if (-f $_[1]) {
- return true;
- }}}
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
Pero no sé cómo calcular la cantidad descargada del archivo poniendo el porcentaje de 1 al %100.
¿ Alguien me puede ayudar ?
