Discussion :

[Mic59]

Bonjour,

Débutant en perl, j'aimerais avoir votre avis sur la faisablilité d'une fonction.

J'ai un répertoire sur une machine distante dans lequel j'accède via une session FTP. J'aimerais scanner l'ensemble de ce répertoire et ne récupérer sur ma machine locale que les fichiers répondants à trois critères:
- un nom type ".log"
- une date de dernière modification inférieur à un paramètre
- une date de création supérieure à un autre paramètre

sela vous semble t-il possible? La solution serait bien de récupérer tout le répertoire, mais vu le volume...

Merci d'avance,
Mic

[remixxl]

salut a toi nouvel arrivant,

oui ca me semble tout a fait posible, à condition que le répertoire soit bien partagé. ensuite tu fait un dir et une reconnaissance de caractère. puis il me semble que des module te permette de récupérer la date de création et modification on en a parle y a pas longtemps dans le forum. fait une recherche,ebauche un morceau de code et envoie en un bout si t as des problemes.

a+

[Choupi]

Voila un morceau de code pour que tu commences...Comme je suis fatigué et contre productif ce soir (merci Driden pour me rappeler l'existance de grep ) Il manque une partie (celle du test des dates)...

use Net::FTP;

$ftp = Net::FTP->new("ftpADRESS", Debug => 0) or die "Cannot connect to some.host.name: $@";
$ftp->login("USERNAME","PASSWORD") or die "Cannot login ", $ftp->message;
$ftp->cwd("/public_html/test") or die "Cannot change working directory ", $ftp->message;
@tabfile = $ftp->ls();

$date = "";
$motif = ".log";

@tablog = grep(/($motif)$/, @tabfile); # à cette étape quand on veut dormir il faut harceler Driden via Msn et on obtient un grep

foreach (@tablog){
$time = localtime $ftp->mdtm($_);
print "fichier: $_ | date de derniere modification: $time";
if( correspond au critere de date de modif ){
$ftp->get($_) or die "get failed ", $ftp->message;
}
}
$ftp->quit;

Pour le moment je ne sais recuperer que la date de derniere modif (via mdtm() ... Je voulais utiliser la commande FTP List mais j'y arrive pô Si quelqu'un peut me dire comment la mettre en place ...) Avec ca je pense que tu as de bonnes bases.

Bon code & Bonne Nuit @ tout le monde.

Choupi.

[Mic59]

Merci pour le code.

J'ai copié tout ça dans mon script et je n'ai visiblement pas le module ftp.pm. Je l'ai récupéré sur le site du CPAN (comme mentionné dans un autre sujet) mais je n'ai pas les droits d'écriture dans le dossier auquel mon shell fait référence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Can't locate Net/FTP.pm in @INC (@INC contains: /usr/perl5/5.00503/sun4-solaris /usr/perl5/5.00503 /usr/perl5/site_perl/5.005/sun4-solaris /usr/perl5/site_perl/5.005 .) at analyse_log.ksh line 97.

Est -il possible de simplement le copier dans un autre répertoire ou doitje faire appel à mon administrateur pour installer plus proprement ce module perl sur le serveur?

Mic

[Choupi]

Tu dois l'installer propremment... Demande à ton admin.