Discussion :

[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 :

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

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

[nibroc]

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 :

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

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 :

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

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

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 :

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

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

[Jasmine80]

Tu peux utiliser une étiquette

Code :

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

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;
	}

[yzf-r]

impeccable!

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

[Philou67430]

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

Code :

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

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) { ..." ?

[Jasmine80]

@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 :

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

while ( my $l = <FI> ) {