Ca marche lol, merci pour la syntaxe, je savais tous ça mais j'avais pas fait le rapprochement lol. Je ne suis qu'un padawan linuxien...
J'ai une derniére petite question si je peux abuser de votre gentillesse et de votre savoir, voici mon script perl :
#!/usr/bin/perl
#Recupere les fichiers de logs cree il y a $n jours
use strict; #Syntaxe stricte
use Net::FTP; #charge le module netftp
use POSIX qw(strftime); #charge la fonction strftime
use IO::Handle; #charge le module IOHandle
STDOUT->autoflush(1); #enlever le buffer sur stdout
my $n = 0;
my ($adresse,$login,$pass,$rep) = ("#####","####","#####","#####" ); #définir 4 variables, mettre my pour dire que les variables sont locales
my $ftp = Net::FTP->new($adresse, Debug => 0) or die "Unable to connect to $adresse\n"; #crée un nouvel objet netftp qui s'appelera $ftp
$ftp->login($login,$pass) or die "Unable to log in : $ftp->message\n";
#méthode login sur l'objet ftp
$ftp->cwd($rep) or die "Unable to cd to $rep : $ftp->message\n";
my @lines = $ftp->ls; #récupére chaque ligne du tableau avec le nom du fichier
foreach(@lines) {
my @ftime = localtime($ftp->mdtm($_));#récupère le temps de modification du fichier courant
my @ltime = localtime(time-$n*86400);#récupére la date d'il y a n jours
if ($ftime[5] == $ltime[5] && $ftime[4] == $ltime[4] && $ftime[3] ==
$ltime[3]) {
print "Downloading $_...";
$ftp->get($_); #téléchargement du fichier de logs en question
print "done\n";
}
}
$ftp->quit;
Il est assez simple à comprendre et fonctionne trés bien pour downloader des fichier de logs, mais il les écris dans le repertoire courant.... Pourriez vous m'indiquer que dois je rajouter et ou pour copier le résultat de mon download dans un autre rep que le rep courant?
Je vous envoie toute ma gratitude pour votre aide mes chers.
Et votre vitesse pour répondre n'a d'égal que votre dévotion....
SK!!
---------------
Il vaut mieux se taire et passer pour un con, plutot que l'ouvrir et prouver que l'on en est bien un....
bin
