Come posso aggiungere una barra di avanzamento a WWW :: Mechanize?

Question

Ho il codice seguente:

$mech->get($someurl, ":content_file" => "$i.flv"); 

Così sto ottenendo il contenuto di un URL e salvarlo come file FLV. Mi piacerebbe stampare ogni secondo circa la quantità di download rimanente. C'è un modo per farlo in WWW :: Mechanize?

Answer 1

Molte grazie a risposta Peter Kovacs' per me che porta alla risposta corretta. Si è rivelato un po 'più elaborato di quanto mi aspettassi, quindi ho deciso di rispondere (orrore) alla mia domanda.

Come Peter ha mostrato, posso impostare una richiamata in questo modo:

$m->get($u, ":content_cb" => \&callback); 

Ma ora non può salvare il contenuto utilizzando il: valore di content_file, perché posso scegliere solo uno dei due. La funzione di callback ha passato i dati e ho finito per scriverli su un file.

Ho anche ricevuto un oggetto risposta che contiene la dimensione totale del contenuto come indicato da friedo. Quindi, mantenendo un totale parziale di contenuti ricevuti finora e dividendolo per il contenuto totale, posso scoprire quale percentuale del contenuto è stata scaricata. Ecco la funzione di callback completa:

open (VID,">$i.flv") or die "$!"; 
$total = 0; 
sub callback 
{ 
    my($data, $response, $proto) = @_; 
    print VID "$data"; # write data to file 
    $total+= length($data); 
    $size = $response->header('Content-Length'); 
    print floor(($total/$size)*100),"% downloaded\n"; # print percent downloaded 
} 

Spero che questo aiuti qualcuno.

Answer 2

WWW::Mechanize afferma che il metodo get è un sovraccarico "ben educato" di LWP :: UserAgent get. Guardando la documentazione per LWP :: UserAgent, è possibile fornire una chiave content_cb che viene chiamato con ogni blocco del file scaricato:

$mech->get($someurl, ":content_cb" => \&callback); 
sub callback 
{ 
    my($data, $response, $proto) = @_; 
    # save $data to $i.flv 
    # print download notification 
}