Bonjour,

J'essaie de trouver un moyen de me connecter en Perl sur un FTP via un proxy, mais, rien n'y fait, ça ne fonctionne pas... J'ai cherché sur le net et je n'ai rien trouvé de bien utile

Sachant que l'option Firewall ne semble pas fonctionner pour spécifier un Proxy, j'utilise un code du genre :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
use Net::FTP; 
 
my $host="un.site.distant";
my $directory="unRepertoire";
 
$ftp = Net::FTP->new("mon.proxy.com", Debug => 1) or die $@;
$ftp->login("user@un.site.distant","password") or die $@;
$ftp->cwd("/unRepertoire") or die $@;
$ftp->get("file.pdf") or die $@;
$ftp->quit;
et ça me retourne l'erreur suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Net::FTP>>> Net::FTP(2.75)
Net::FTP>>>   Exporter(5.58)
Net::FTP>>>   Net::Cmd(2.26)
Net::FTP>>>   IO::Socket::INET(1.29)
Net::FTP>>>     IO::Socket(1.29)
Net::FTP>>>       IO::Handle(1.25)
Net::FTP: Unexpected EOF on command channel at C:\FTP.pl line 6
Died at C:\FTP.pl line 6.
En vous remerciant d'avance !