Discussion :

[Cold Hand]

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 !

[Jedai]

Si, Firewall permet de spécifier un proxy et marche avec un certain type de proxy en tout cas. Tu as lu et essayé tout ce qui est proposé dans la FAQ ?

--
Jedaï

[Cold Hand]

Oui... C'est pour ça que je me tourne vers ce forum pour savoir si quelqu'un a déjà été confronté à ce problème.

Sinon, d'un point de vue plus globale, existe-t-il d'autres méthodes (relativement) simples pour se connecter à un FTP en Perl ?

Merci.

[Jedai]

Tu as essayé LWP ? Net::Lite::FTP ? POE::Component::Client ? ftp (le programme) avec Expect ou en générant un script avant de le lancer ?

--
Jedaï

[Cold Hand]

Je vais tester tout ça, merci pour les pistes !