Ce script est une fonction permettant le rappatriement d’un fichier en perl.

Il liste également les fichiers présents dans un répertoire donné.

Note : Les variables sont à définir !!
# Fonction de connexion FTP
sub connect_ftp {
my $fichier = @_[0];
if ($ftp = Net::FTP->new("$adresseftp",Debug => 0)) {
print "--> Connection OK\n";
}
else {
print "--> Connection ERR\n$@";
}

# on envoi le login et mdp
if ($ftp->login(« $login », »$passwd »)) {
print « –> Login OK\n »;
}
else {
print « –> Login ERR\n »;
}

# on se met dans le bon rep
if ($ftp->cwd (« $rep_distant »)) {
print « –> Dossier distant OK\n »;
}
else {
print « –> Erreur le chemin du dossier distant n’existe pas\n »;
}

# on liste le rep
my @liste=$ftp->ls();
foreach my $liste(@liste) {
print « –> $liste\n »;
}

# On rappatri le fichier donne en argument � la fonction
if ($ftp->get($fichier, »$rep_local/$nom_fichier »)) {
print « –> rappatriement de $nom_fichier reussi\n »;
$ftp->close();
}
else {
print « –> ECHEC ! rappatriement de $fichier \n »;
}
}

Petit bout de script qui permet d’automatiser un transfert sftp.Ce petit script shell permet de rappatrier par exemple une sauvegarde d’un pc à un autre un utilisant le {{sftp}} (ftp sécurisé). Il est également possible de faire du {{scp}} ou même du {{ssh}} !

Bien sur, remplacez {USER} et {LE_MOT_DE_PASS} ainsi que {LEFICHIERVOULU} par vos paramètres.

{{!! WARNING !!}} => le mots de passe est écrit en dure ! Ne pas utiliser le compte root !!!


spawn /usr/local/bin/sftp USER@xx.xx.xx.xx
expect "USER@xx.xx.xx.xx's password: "
send "LE_MOT_DE_PASSE\r"
expect "sftp> "
send "get /LEFICHIERVOULU\r"
expect {
eof { exit; }
}
send "exit\r"


{{Note}} : Lors de la 1ere connexion, si vous ne vous êtes jamais connecté, il vous sera demandé d’accepter l’empreinte de l’hôte distant.

Une autre méthode pour l’authentification consiste à utilisé les échanges de clé.

@ suivre…