Bonjour,
je souhaiterais faire un transfert de fichier grâce à Net::FTP. Je voudrais aller chercher un fichier sur un pc sous windows depuis un serveur qui est sur un linux embarqué.
Voila le code :
Code :
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Net::FTP;
- my $ftp = Net::FTP->new("192.168.0.50" )
- or die "Cannot connect to '192.168.0.50': $@";
-
- $ftp->login("login","mdp" )
- or die "Cannot login ", $ftp->message;
-
- $ftp->cwd("chemin/linux" )
- or die "Cannot change working directory ", $ftp->message;
- $ftp->get("chemin/windows/archive.tar.gz" )
- or die "get failed ", $ftp->message;
-
- $ftp->quit;
|
Quand je l'exécute j'ai un message d'erreur :
Cannot connect to '192.168.0.50': Net::FTP: connect: Connection refused at ftp.pl line 6.
Quelqu'un aurait une idée pour m'aider la dessus?
Merci d'avance.
