Discussion :

[LE NEINDRE]

Bonjour à tous,

J'aimerais savoir s'il est possible d'afficher la progression d'un téléchargement en ftp.
J'utilise le module NET::FTP.

Je voudrais comparé l'état de la taille du fichier qui se télécharge sur le disque par rapport à la taille totale du fichier.

Merci pour votre aide et vos suggestions !!!

Bonne journée.

[Jedai]

Tu peux faire le téléchargement toi-même via les méthodes retr() qui renvoie un "dataconn" sur lequel tu peux utiliser "read()".

--
Jedaï

[LE NEINDRE]

Bonjour Jedaï,

A la lumière de CPAN, je vois:

Code :

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

1
2
3
 
retr ( FILE ) 
Begin the retrieval of a file called FILE from the remote server.

et

Code :

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

1
2
3
4
5
 
read ( BUFFER, SIZE [, TIMEOUT ] ) 
Read SIZE bytes of data from the server and place it into BUFFER, also performing any <CRLF> translation necessary. TIMEOUT is optional, if not given, the timeout value from the command connection will be used.
 
Returns the number of bytes read before any <CRLF> translation

Mais je ne vois pas comment utiliser ces deux choses ensemble ???

Peux tu me donner une petite explication ??

Merci pour ton aide !!

[LE NEINDRE]

Voilà par exemple comment j'utilise ces deux méthodes mais j'ai pas du comprendre comment ç marche !!

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
17
18
19
20
21
22
23
24
25
 
use NET::FTP;
my $host='xxx.xxx.xxx.xxx';
my $ftp_user='xxx';
my $ftp_password='xxx';
 
my $file='/boltons/P17/interfaces/EUR/EDI/out/INVONEO_20051005_181558';
 
my $ftp=Net::FTP->new($host) or die "Erreur connecting $host";
if(!defined($ftp)){print "cannot connect to server $host\n";}
else
{
      if($ftp->login($ftp_user,$ftp_password)==0){print "Error login for access server $host: user: $ftp_user\n";}
      else
      {
           print "Connected to $host";
 
          my $dataconn=$ftp->retr($file);
          while($dataconn->READ($buffer,8))
          {
                print "$buffer\n";
          }
 
      }
}

J'ai le message d'erreur suivant:

Code :

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

1
2
 
Can't locate object method "READ" via package "Net::FTP::A"

et d'autre part, dans la fonction retrieve, je ne spécifie pas de répertoire de téléchargement sur le disque local...

[LE NEINDRE]

Ah ok je suis bête, j'ai écrit READ au lieu de read.

Le code suivant fontionne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
...
          my $total_size=$ftp->size($file) or die $ftp->message;
          my $dataconn=$ftp->retr($file) or die $ftp->message;
          while($dataconn->read($buffer,1))
          {
 
                $nb_bytes_read++;
                $progress=sprintf("%0.2f",($nb_bytes_read/$total_size*100))."\n";
                print "$progress %";
          }
...

J'ai enfin deux dernières questions:

1) Est-ce que ce code est sûr (suis-je sur de bien tout télécharger ??) et optimisé
2) Est-ce que je peux spécifié une destination de téléchargement, si oui, comment ???


Merci beaucoup pour les réponses.

[LE NEINDRE]

Autant pour moi, je suis vraiment nul.
C'est normal qu'il n'y ai pas de fichier de sortie étant donnée que la sortie se fait dan une buffer.
il faut donc créer un fichier et écrire dedans le contenu du buffer.

ça y est, ça fonctionne !!

Merci pour ton aide Jedaï !!!

[djibril]

peux tu nous faire un exemple tout bete. Afficher la progression m'interesse par curiosité