Discussion :

[voulton]

Bonjour,

J’utilise un script de quelques lignes pour télécharger un fichier ZIP sur un ftp en utilisant la méthode Get.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
use Net::FTP;
    $ftp = Net::FTP->new("ftp.deouf.com", Debug => 1)
      or die "Cannot connect to some.host.name: $@";
    $ftp->login("login","pass")
      or die "Cannot login ", $ftp->message;
   $ftp->cwd("/www/folder")
      or die "Cannot change working directory ", $ftp->message;
	  $ftp->get("001.zip")
	  or die "get failed ", $ftp->message;
    $ftp->quit;

Tout fonctionne correctement, c'est-à-dire que le fichier est bien téléchargé mais, mon fichier ZIP devient corrompu lorsque je le télécharge par ce script.

Il y a une erreur ?


J’ai aussi une autre question, la méthode Get() permet t’elle de spécifier le fichier de destination du téléchargement ?

voulton

[djibril]

ajoute ceci

Code :

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

$ftp->binary();

donc ton code ressemblera à ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use Net::FTP;
    $ftp = Net::FTP->new("ftp.deouf.com", Debug => 1)
      or die "Cannot connect to some.host.name: $@";
    $ftp->login("login","pass")
      or die "Cannot login ", $ftp->message;
   $ftp->binary();
   $ftp->cwd("/www/folder")
      or die "Cannot change working directory ", $ftp->message;
	  $ftp->get("001.zip")
	  or die "get failed ", $ftp->message;
    $ftp->quit;

[voulton]

ajoute ceci

Code :

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

$ftp->binary();

donc ton code ressemblera à ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use Net::FTP;
    $ftp = Net::FTP->new("ftp.deouf.com", Debug => 1)
      or die "Cannot connect to some.host.name: $@";
    $ftp->login("login","pass")
      or die "Cannot login ", $ftp->message;
   $ftp->binary();
   $ftp->cwd("/www/folder")
      or die "Cannot change working directory ", $ftp->message;
	  $ftp->get("001.zip")
	  or die "get failed ", $ftp->message;
    $ftp->quit;

Magnifique, celà fonctionne
Effectivement le get se faisait sur du ASCII apparement et le binary fonctionne très bien
jamais eu ce type de problème j'aurais jamais trouvé^^


merci

Voulton

[djibril]

le mode de transfert par défaut est ASCII, (sous Linux ca ne gène pas)
mais Windows il rajoute des caractères de fin de ligne, ce qui grossit le fichier.
Donc on force le téléchargement en mode binaire et tout roule

n'oublie pas le tag résolu!