|
|
|
|
Bonjour,
Je cherche à placer dans une variable le nom d'un fichier dont je connais le début. De plus, je dois sélectionner le fichier le plus récent.
ex: le cherche le fichier débutant par AAA dans un répertoire définit.
Dans ce répertoire, j'ai les fichiers suivants :
AAAC_9_1.fichier
AAAC_9_2.fichier
BBBV_5_0.fichier
BBBV_5_1.fichier
Je souhaite donc entrer en paramètre AAA et qu'il place dans une variable AAAC_9_1.fichier afin que je la renvoie dans d'autres commandes.
J'ai essayé d'utiliser la commande find et glob mais sans résultat concret.
Merci pour votre aide
Configuration: Windows XP Opera 9.25
Salut,
#!/usr/bin/perl
use strict;use warnings;
use File::Find;
my ($recent,$nom,$rep);
$rep = '/home/lami20j/trash';
# cherche le plus recent
sub plus_recent {
return unless -f and /^abc/;
return if defined $recent and $recent > (stat($_))[9];
$recent = (stat(_))[9];
$nom = $File::Find::name;
}
find(\&plus_recent,$rep);
if(defined($nom)){
print "$nom\n";
}else {
print "Fichier inexistant!\n";
}
__END__
lami20j |
Comment trouver fichier content.ie5 Comment trouver fichier tomporaire Impotsssible de trouver fichier flv avec downloadhelper Ou se trouve fichier adress dans outlook 2003 Ou se trouve fichier canal plus a la demande Ou se trouve fichier dmp Ou trouver fichier marque page firfox Ou trouver fichier sys32 driver atapi Ou trouver fichiers temporaires Outlook où trouver fichier pst Perl créer fichier passer du sql Perl ouvrir fichier Perl trouver fichier meme nom mais extension differente Probleme pour trouver fichier dansimage burner Soft trouver fichier doublon Trouver fichier cache Trouver fichier shell Xp logiciel pour trouver fichiers inutiles
