Alexander Schäfer: LWP, Stausanzeiges beim downloaden!

Beitrag lesen

ok, habs geschaft ;)

Merci für die Hilfe...

print "<b>URL:</b> $url <b>Dateiname:</b>$path $localfile<br>";

print start_form;
print textfield(-NAME => "size");
print end_form;
print script("document.forms[0].size.value = '0'");
$i = 0;
$ua  = new LWP::UserAgent;
$req = HTTP::Request->new('GET', $url);
open(FILE, ">$path$localfile") or die "Bitte einen Filenamen wählen den man erstellen kann!! $localfile ist schlecht";
$response = $ua->request($req,
                 sub { $data = shift;
                       $total += length($data);
                       print FILE $data;
         if ($i >= 70) {
                       print script("document.forms[0].size.value = '$total'");
         $i = 0;
         }
       $i++
                     },
                 1000000);
close(FILE);
die $response->as_string() if $response->is_error();
print "fertig";

lol, schon wieder anders... habs auf einem 100Mbit/s webserver laufen...