Instruction du type "dés que"?

Salut,

J'ai une liste de plusieurs fichiers logs et je voudrais ne garder que ceux qui contiennent $info.
J'ai fait le bout de code suivant, mais ca ne fonctionne pas.
Existe-t-il une instruction du type "dés que", genre "dés que j'ai trouvé $info dans $lf, je m'arrête de le parser, je le stocke sous @result_files et je passe au log $lf suivant. Si je ne trouve pas $info dans $lf alors je le stocke sous @tobedeleted".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

foreach $lf (@l_files){ open(FI,"<$lf") or die ("Impossible to open the file $_.\n"); while ( my @l = <FI> ) { foreach $l (@l){ if ($l =~ /$info/i) { push (@result_files, $lf); } else { push (@tobedeleted, $lf); } } } close FI; }

---

par avance merci

Peut-être un last peut résoudre ton problème, last fait sortir immédiatement de la boucle la plus interne, ici, il faut sortir de 2 boucles, il faut dans ce cas étiqueter la boucle dont on veut sortir, voici donc le code que je propose :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

foreach $lf (@l_files){ open(FI,"<$lf") or die ("Impossible to open the file $_.\n"); todelete=1 ; OUTER:while ( my @l = <FI> ) { foreach $l (@l){ if ($l =~ /$info/i) { push (@result_files, $lf); todelete=0 ; last OUTER ; } } } close FI; if(todelete) { push (@tobedeleted, $lf); } }

---

Je ne comprend pas pourquoi chaque fichier est lu en entier dans le tableau @l, personnelllement, je le lirais ligne par ligne. ce qui donnerait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

foreach $lf (@l_files){ open(FI,"<$lf") or die ("Impossible to open the file $_.\n"); todelete=1 ; while ( my $l = <FI> ) { if ($l =~ /$info/i) { push (@result_files, $lf); todelete=0 ; last ; } } close FI; if(todelete) { push (@tobedeleted, $lf); }   }

---

Excuse-moi, mais je n'arrive pas a bien indenter ce code. La deuxième version devrait être plus économique en mémoire.
Cordialement
Nibroc

Citation:

---

Envoyé par yzf-r

Salut,

J'ai une liste de plusieurs fichiers logs et je voudrais ne garder que ceux qui contiennent $info.
J'ai fait le bout de code suivant, mais ca ne fonctionne pas.
Existe-t-il une instruction du type "dés que", genre "dés que j'ai trouvé $info dans $lf, je m'arrête de le parser, je le stocke sous @result_files et je passe au log $lf suivant. Si je ne trouve pas $info dans $lf alors je le stocke sous @tobedeleted".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

foreach $lf (@l_files){ open(FI,"<$lf") or die ("Impossible to open the file $_.\n"); while ( my @l = <FI> ) { foreach $l (@l){ if ($l =~ /$info/i) { push (@result_files, $lf); } else { push (@tobedeleted, $lf); } } } close FI; }

---

par avance merci

---

Tu peux utiliser une étiquette

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

# étiquette donnée à la boucle FILE   FILE: foreach $lf (@l_files){ open(FI,"<$lf") or die ("Impossible to open the file $_.\n"); while ( my @l = <FI> ) { foreach $l (@l){ if ($l =~ m/$info/i) { push (@result_files, $lf); close FI; next FILE; } else { push (@tobedeleted, $lf); } } } close FI; }

---

impeccable!

merci à tous les deux. Ça fonctionne du tonnerre maintenant.:ccool:

Je me permet une troisième version, qui évite les faux goto que sont les instructions last :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

@tobodeleted(@l_files); # Par défaut, ils ne contiennent pas l'info foreach $lf (@l_files) { open my $FI, "<", $lf or die ("Impossible to open the file $lf.\n"); my found; do { $found = <$F> =~ /$info/i; } until eof $F || $found; # Si le fichier contient l'info, on le retire de @tobedeleted pour l'ajouter à @result_files push @result_files, shift @tobedeleted if $found; # close inutile si le filehandle est stocké dans une variable my }

---

Attention, dans cet exemple, @tobedeleted contiendra des noms de fichiers, ce qui n'est pas le cas, sauf erreur, de ton premier script et du dernier de jasmine qui contiennent le nom du fichier autant de fois que le nombre de ligne qu'il contient.

@jasmine : quel est l'intérêt de la double boucle "while (my @l = <FI> ) { foreach $l (@l) { ..." ?

Citation:

---

Envoyé par Philou67430

@jasmine : quel est l'intérêt de la double boucle "while (my @l = <FI> ) { foreach $l (@l) { ..." ?

---

Tu as raison, il n'y a aucune utilité, j'ai bêtement repris le code de départ.
J'airais simplement dû faire un

Code:

---

while ( my $l = <FI> ) {

---

Ouf ! j'ai cru qu'une subtilité m'avait échappée ;)