my $serveur_ftp = "ftpperso.free.fr";
my $username = "developpez";
my $password = "toto";
print "Tentative de connexion sur le serveur ${serveur_ftp}\n";
my $ftp=Net::FTP->new("$serveur_ftp",Debug => 1,Passive =>1,Timeout => 30)
or die "Impossible de se connecter au serveur .. Verifier vos informations,pare-feu .\n";
$ftp->login($username,$password)
or die "Identifiant ou mot de passe incorrecte ", $ftp->message;
$ftp->cwd("/Sauvegardes")
or die "Changement repertoire impossible", $ftp->message;
$ftp->put("/tmp/mysql-$BaseDeDonnees-$hostname-$date-$heure.sql")
or die "put failed ", $ftp->message;
$ftp->pwd();
@filelist = $ftp->dir() or die "marche pas";
foreach $file(@filelist){
print $file."\n";
}
$ftp->quit();
Partager