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.
Marsh Posté le 18-03-2009 à 10:48:18
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 :
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.