Discussion :

[thanatos29]

Bonjours
J'ai un petit probleme.
Voila mon code, enfin voila un code simplifier:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
open (FIC,"FIC.TXT")||die("pb d'ouverture\n");
until($ligne=~/17 H 00/)
{
	$ligne=<FIC>;
	if($ligne=~/toto/)
	{
		print $ligne;
	}
}

Donc le programme va jusqu'a ce quil trouve 17 H 00 dans le fichier.
Mais si jamais il le trouve pas, il bloque.
Comment puis-je remedier a ce probleme.
En gros est ce qu'il existe un test qui detecte la fin du fichier pour pouvoir arreter le programme?
Merci

[2Eurocents]

Je n'ai pas testé, je fais de mémoire, mais comme ça, ça devrait marcher :

Code :

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

1
2
3
4
5
6
7
8
open (FIC,"FIC.TXT")||die("pb d'ouverture\n");
while (($ligne = <FIC>) and ($ligne!~/17 H 00/))
{
	if($ligne=~/toto/)
	{
		print $ligne;
	}
}

Il te faut considérer la fin de fichier comme une condition d'arrêt absolument prioritaire ... on pourrait aussi écrire ça avec une rupture de séquence :

Code :

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

1
2
3
4
5
6
7
8
9
open (FIC,"FIC.TXT")||die("pb d'ouverture\n");
while ($ligne = <FIC>)
{
	last if ($ligne =~ /17 H 00/);
	if($ligne=~/toto/)
	{
		print $ligne;
	}
}

Bonne continuation.

[Jedai]

Non, si on fait ainsi, le while teste juste si $ligne est vrai, ce qui peut ne pas être le cas si la ligne est vide, ou contient juste un 0... Soit on écrit seulement :

Code :

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

1
2
3
4
5
 
while( <FIC> ) {
  last if /17 H 00/;
  print if /toto/;
}

Soit on explicite :

Code :

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

1
2
3
4
5
6
7
8
 
while (defined($ligne = <FIC>) and ($ligne!~/17 H 00/))
{
   if($ligne=~/toto/)
   {
      print $ligne;
   }
}

Car l'opérateur "<>" renvoit undef si on a atteint la fin du fichier.
(Si il n'y a qu'un <TRUC> dans la condition du while, perl déduit tout seul qu'on veut en réalité mettre la condition : "defined( $_ = <TRUC> )" )

--
Jedaï

[nematoad]

Non, si on fait ainsi, le while teste juste si $ligne est vrai, ce qui peut ne pas être le cas si la ligne est vide, ou contient juste un 0...

Tu sais, j'ai fait la meme reflexion, et donc avant de poster j'ai fait un petit test:

Code :

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

1
2
3
4
5
6
$ perl -e 'print "1\n2\n0"' | perl -le 'while ($x=<>) {print "<$x>" }'
<1
>
<2
>
<0>

Donc ca marche quand meme. Je sais que c'etait un piege dans les grands temps anciens, mais apparament ca a ete corrige a un moment donne.

Cela etant, je continuerai a ecrire

Code :

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

1
2
3
while( defined( my $rec = <FIC> )) {
    ...
}

car j'aime bien expliciter ce que est en train de se passer.

N