[PERL] un grep qui ne fonctionne pas bien

Bonjour à tous !

Je tente de récupérer une liste de fichier dans un répertoire à l'aide de grep.
Mes contraintes sont les suivantes:

- fichier différent de . et ..
- fichier a été modifié il y a moins de 2 jours
- le fichier est un fichier (pas un répertoire)

J'ai donc le code suivant:

Code:

---

1 2 3 4 5 6 7 8

foreach(@Repertoire_archives_IDOC) { opendir(REP,"$base_archives_IDOC$_") || die "erreur ouverture $repertoire_archives_IDOC $! \n";   @{$tab2{$_}}=grep{$_ ne '..' and $_ ne '.' and -M $base_archives_IDOC.$_ < 2 and -e $base_archives_IDOC.$_} readdir REP; closedir REP; }

---

Mais je ne récupère rien ??
Y a t'il un problème avec mon grep ????

Merci pour vos réponses.

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 :

Code:

---

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.

les balises codes oursblanc :evil:

Citation:

---

Envoyé par oursblanc

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 :

Code:

---

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.

---

Pourquoi il devrait etre sous Unix ou Linux, sa marche pas sous Windows ?

normalement si

Bonjour,

La commande grep est une fonction interne à Perl et qui n'a que peu de choses à voir avec la commande *n*x du même nom. Elle est disponible sur TOUTES les plates-formes supportant Perl.

Pour plus de détails sur grep, elle est évoquée dans la FAQ

Pour ce qui est du problème évoqué ici sur le grep, je crois que le Posteur Original gagnerait à parenthèser son expression dans le grep, à vérifier son répertoire de base du fichier, et à utiliser l'opérateur -f, plutôt que -e, pour tester si sa cible est un fichier et non un répertoire.

J'en veux pour preuve ce code pleinement fonctionnel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl   use warnings; use strict;   my @rep = ("/var/spool", "/var/log"); my %hash;   foreach my $repcour (@rep) { opendir(REP,"$repcour") || die "erreur ouverture $repcour $! \n";   $hash{$repcour} = [ grep{ (($_ ne '..') and ($_ ne '.') and (-M $repcour."/".$_ < 2) and (-f $repcour."/".$_)) } readdir REP ];   closedir REP; }   foreach (keys (%hash)) { print "$_\n"; print "@{$hash{$_}}\n"; print "-----------------------------------------------------\n"; }

---

Bonjour à tous !!!

Merci beaucoup pour toutes les remarques :wink:

J'ai finalement fait quelques vérifications à la lumière de vos posts et me suis aperçu qu'il y avait quelques erreurs.

Voilà qui fonctionne mieux désormais:

Code:

---

1 2 3 4 5 6 7 8

foreach(my $i=0;$i<=$#Repertoire_archives_IDOC;$i++) {   opendir(REP,"$base_archives_IDOC$Repertoire_archives_IDOC[$i]") || die "erreur ouverture $base_archives_IDOC$Repertoire_archives_IDOC[$i] $! \n"; @{$tab2{$Repertoire_archives_IDOC[$i]}}=grep{$_ ne '..' and $_ ne '.' and !(-d $base_archives_IDOC.$Repertoire_archives_IDOC[$i].$_) and -M $base_archives_IDOC.$Repertoire_archives_IDOC[$i].$_ <1 } readdir REP; closedir REP; }

---

Est ce que ce code est optimisé ???