Comment puis-je ajouter une barre de progression à WWW :: Mechanize?

Question

J'ai le code suivant:

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

Je reçois le contenu d'une URL et l'enregistrer comme un fichier flv. Je voudrais imprimer chaque seconde environ combien de téléchargement reste. Y a-t-il un moyen d'accomplir ceci dans WWW :: Mechanize?

Answer 1

Un grand merci à Peter Kovacs réponse pour moi conduisant à la bonne réponse. Il s'est avéré être un peu plus complexe que ce à quoi je m'attendais, alors j'ai décidé (horreur) de répondre à ma propre question.

Comme Peter a montré, je peux définir un rappel comme ceci:

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

Mais maintenant, je ne peux pas enregistrer le contenu en utilisant la: valeur content_file, parce que je ne peux choisir l'un des deux. La fonction de rappel reçoit les données, et j'ai fini par écrire cela dans un fichier.

Je reçois également un objet de réponse qui contient la taille totale du contenu comme indiqué friedo. Donc, en gardant un total cumulatif du contenu reçu jusqu'ici et en le divisant par le contenu total, je peux trouver quel pourcentage du contenu a été téléchargé. Voici la fonction de rappel complet:

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 
} 

J'espère que cela aide quelqu'un.

Answer 2

WWW::Mechanize indique que la méthode get est une surcharge «bien conduite» de LWP :: UserAgent get. En regardant les documents pour LWP :: UserAgent, vous pouvez fournir une content_cb clé qui est appelée à chaque morceau du fichier téléchargé:

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