Salut,
Je suppose que si tu fais un grep c'est que tu es sous Unix (ou Linux).
Je tente de récupérer une liste de fichier dans un répertoire à l'aide de grep.
Pour les contraintes - fichier différent de . et .. et - le fichier est un fichier (pas un répertoire), tu peux utiliser des Handle de répertoires (Voir les FAQ ) du style :
1 2 3 4 5 6 7 8 9 10 11
| $nbrep = 0;
$nbfic = 0;
$dossier = "/home/gldavid/perl";
opendir DIR, $dossier or die "$dossier n'existe pas !";
@files = readdir DIR;
foreach $fichier (@files) {
if (-f $fichier) { $nbfic++; }
elsif (-d $fichier) { $nbrep++; }
}
close DIR;
print "Il y a $nbfic fichier(s) et $nbrep répertoire(s) dans $dossier.\n"; |
Pour la contrainte de date, je crois qu'il existe aussi une commande perl.
Partager