Discussion :

[ManusDei]

Bonjour,

je parse un fichier, et j'affiche certaines lignes en fonction de différentes expressions régulières.
Dans un cas particulier, je voudrais afficher la ligne courante, ainsi que les 9 lignes suivantes.

J'ai essayé d'include un while sur <FILEH> dans le traitement, mais ça m'affiche en boucle la ligne qui active cond3. Pareil avec un for où j'avais mis <FILEH> dans mon incrément.

Code :

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

1
2
3
4
5
6
7
8
while(<FILEH>) {
   if(cond1) { ... }
   if(cond2) { ... }
   if(cond3) {
      # afficher la ligne courante et les 9 suivantes
      # traitement
   }
}

Y a t'il une méthode pour faire ça dans le if ?
Sur un autre fichier, j'ai fait comme suit, avec un compteur pour remettre affich à 0 :

Code :

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

1
2
3
4
5
while(<FILEH>){
   if(cond1){ $affich=1; $cpt=0}
   if($affich==1) { print $_; $cpt++}
   if($cpt==10){ $cpt=0; $affich=0 }
}

Mais je me demande si il n'est pas possible de faire autrement, je voudrais éviter la multiplication des if pour faciliter la relecture.

[Lolo78]

Quelque chose comme cela:

Code :

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

1
2
3
4
5
6
7
if(cond3) {
     print; # imprime la ligne courante
     foreach (1..9) {
          my $line = <FILEH>;
          print $line;
     }
     # ...

Il est possible qu'une syntaxe plus concise fonctionne, mais là je ne peux pas tester:

Code :

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

1
2
3
4
if(cond3) {
     print;
     <FILEH> and print foreach (1..9)
     # ...

Le truc c'est que je ne suis pas sûr qu'il n'y ait pas de téléscopage entre les deux utilisations de $_.

[Lolo78]

Il est possible qu'une syntaxe plus concise fonctionne, mais là je ne peux pas tester:

Code :

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

1
2
3
4
if(cond3) {
     print;
     <FILEH> and print foreach (1..9)
     # ...

Le truc c'est que je ne suis pas sûr qu'il n'y ait pas de téléscopage entre les deux utilisations de $_.

Bon, je viens de tester, cette syntaxe plus concise ne fonctione pas, il y a effectivement téléscopage des deux utilisations de $_.

En revanche, tu peux faire comme cela:

Code :

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

1
2
3
4
5
6
7
while (<FILE>) {
	if (cond3) {
		print;
		$line = <FILE> and print $line foreach (1..9);
	}
	# ...
}

Et là, ça marche.

[Philou67430]

Code :

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

1
2
3
4
5
6
7
while (<FILE>) {
	if (cond3) {
		print;
		$line = <FILE> and print $line foreach (1..9);
	}
	# ...
}

Plus concis :

Code :

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

1
2
3
4
5
6
7
while (<FILE>) {
	if (cond3) {
		print;
                print scalar(<FILE>) foreach 1 .. 9;
	}
	# ...
}

[ManusDei]

Merci

[stoyak]

Bonjour,

Il faut garder en mémoire le numéro de ligne qui respecte ta condition particulière et ainsi, tu pourras afficher les neuf lignes suivantes.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
my $fin;
while(<FILEH>) {
   if(cond1) { ... }
   if(cond2) { ... }
   if(cond3) {
     $fin = $. + 9; 
     # afficher la ligne courante et les 9 suivantes
      # traitement
   }
   if ( defined $fin and $. < $fin )  { ... }
 
}

[ManusDei]

J'ai un peu mal expliqué, vu que j'affiche les 9 lignes suivantes, je n'ai pas besoin de tester ces 9 lignes, vu qu'elles sont déjà dans le fichier résultat.

Vu qu'elles sont déjà affichées dans les résultat, je veux qu'elles ne soient pas testées.

[messinese]

Salut,


As-tu essayé de voir avec un label, un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
while($filehandle){
    LABEL:
        Traitement....
    <code>
 
   </code>
next LABEL if ( cond3);
}

[Lolo78]

J'ai un peu mal expliqué, vu que j'affiche les 9 lignes suivantes, je n'ai pas besoin de tester ces 9 lignes, vu qu'elles sont déjà dans le fichier résultat.

Vu qu'elles sont déjà affichées dans les résultat, je veux qu'elles ne soient pas testées.

Les solutions que je t'ai proposées (et la version modifiée de Philou) ne testent pas ces 9 lignes, elles ne font que les imprimer.