¿Cómo puedo agregar una barra de progreso a WWW :: Mechanize?

Question

Tengo el siguiente código:

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

Así que estoy recibiendo el contenido de un URL y guardarlo como un archivo FLV. Me gustaría imprimir cada segundo más o menos cuánto queda de la descarga. ¿Hay alguna forma de lograr esto en WWW :: Mechanize?

Answer 1

Muchas gracias a la respuesta de Peter Kovacs para mí que conduce a la respuesta correcta. Resultó ser un poco más elaborado de lo que esperaba, así que decidí (horror) responder mi propia pregunta.

Como Peter mostró, que puede establecer una devolución de llamada de esta manera:

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

Pero ahora no puedo guardar el contenido mediante el: content_file valor, porque sólo se puede elegir uno de los dos. La función de devolución de llamada pasa los datos, y terminé escribiéndolo en un archivo.

También recibo un objeto de respuesta que contiene el tamaño total del contenido como señaló friedo. Así que al mantener un total acumulado de contenido recibido hasta ahora y dividiéndolo por el contenido total, puedo averiguar qué porcentaje del contenido se ha descargado. Aquí está la función de devolución de llamada 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 
} 

Espero que ayude a alguien.

Answer 2

WWW::Mechanize dice que el método get es una sobrecarga "de buen comportamiento" de LWP :: UserAgent get. En cuanto a la documentación para LWP :: agente de usuario, puede proporcionar una clave content_cb que se llama con cada fragmento del archivo descargado:

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