Discussion :

[djibril]

Salut,
Je souhaiterais savoir si des personnes parmis vous arrivent à télécharger via FTP en utilisant le module Net::FTP en voyant la progression du téléchargement.
J'aimerais pouvoir avoir un affichage progressif du téléchargement mais je ne trouve pas de méthodes pour.
Sinon avez vous un autre moyen de connaitre l'avancé d'un téléchargement via un même script?
J'avais pensé à séparé dans le même script une partie qui telecharge et l'autre via un while qui lit la taille du fichier en cours de téléchargement, mais je n'arrive pas, surtout que les deux process ne tournent pas en même temps.

Merci

[djibril]

bon en fait, c'est Ok.
On peut contourner le probleme en utilisant les methodes retr, bytes_read du module Net::FTP et faire le telechargement soit même.
Maintenant, j'ai un souci.
si je telecharge un fichier plat, pas de souci.
Si je telecharge un fichier compressé, mon fichier telechargé n'est pas toujours correct et peut même etre modifié.
Comment bien le reecrire?
voici comment je m'y prends :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
  ...
  $ftp->binary;
  my $taille_fichier = $ftp->size($fichier);
 
  my $dataconnection = $ftp->retr($fichier) or die $ftp->message;
  my $buffer;
  my $taille_lu = 0;
  open (my $fh, ">$fichier");
  while ($dataconnection->read($buffer,1024)) {
    $taille_lu = $dataconnection->bytes_read();
    #print "$taille_lu/$taille_fichier\r";
    print {$fh} "$buffer";
  }
  $dataconnection->close();
  close ($fh);

etant donné que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$fichier = "toto.tar.gz";

Le fait de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open (my $fh, ">$fichier");

=> ça le corrompe?

[Jedai]

Le fait de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open (my $fh, ">$fichier");

=> ça le corrompe?

Là tu écris en mode texte, donc si c'est des données binaires, ça va le corrompre à coup sûr (sur certains OS en tout cas) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
open my($fh), '>:raw', $fichier
  or die "Couldn't open $fichier :$!\n";

--
Jedaï

[djibril]

merci jedai,
C'est vrai que je ne me suis jamais penché sur l'ecriture de fichier non textuel, car generalement, les modules font le boulot pour nous.
http://perldoc.perl.org/PerlIO.html#Alternatives-to-raw
donc j'ai choisis d'ecrire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  open (my $fh, ">$fichier");
  binmode($fh);

[djibril]

Sinon si je veux télécharger tout un repertoire, j'utilise le module Net::FTP::Recursive, mais j'ai pas trouvé de méthode retr afin de faire la même chose que ci dessus (cad, voir la progression de telechargement).
T'as une idée jedai?

[Jedai]

Sinon si je veux télécharger tout un repertoire, j'utilise le module Net::FTP::Recursive, mais j'ai pas trouvé de méthode retr afin de faire la même chose que ci dessus (cad, voir la progression de telechargement).
T'as une idée jedai?

Le faire à la main ? C'est pas si terrible, ou même tu peux t'appuyer sur le code de Net::FTP::Recursive si tu veux.

--
Jedaï

[hotgloupi]

Yop!
Moi je diviserais le problème en deux étapes plutôt pas dure :
1) tu parcours toute l'arborescence et tu construit une table de haschage du type {"$url" => "taille"}, et tu en profite pour calculer la taille totale
2) tu utilise ta routine pour récup les fichiers listés

après, ya plus qu'a faire une zoli barre de progression
cqfd?