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 »;
}
}

 

---

Article lu 941 fois