[Perl] break

break [Perl] - Perl - Programmation

Marsh Posté le 11-07-2003 à 12:07:25    

Deuxième trou de mémoire, comment on ferait en perl l'équivalent
de ce code ne php ?
 
while($line = fgets($file, 4096) != $plop)
{
  print "plop\n";
}


Message édité par deviant le 11-07-2003 à 12:12:38
Reply

Marsh Posté le 11-07-2003 à 12:07:25   

Reply

Marsh Posté le 11-07-2003 à 13:41:41    

J'ai trouvé mais ca doit être optimisable
 

Code :
  1. foo: while(<MESURE> )
  2.        {
  3.          ($x2) = split /\s/;
  4.          if ($x != $x2)
  5.            {
  6.              print "$x2 0\n";
  7.            }
  8.          else { last foo };
  9.        }

Reply

Marsh Posté le 11-07-2003 à 19:29:32    

fait attention à '!=' : c'est une comparaison sur les nombres et non des string, il faut usiliser 'ne'
 
Je ne suis pas sur de ce que tu veux faire mais ca devrait t'aider:
 

Code :
  1. open(IN, $file) or die;
  3. while(<IN> ) {
  4.   s/^\s+|\s+//g; # on vire les espaces avant et apres
  5.   #je sais pas si tu veux ca mais bon...
  6.   #je vois pas ce qu'etait censé faire ton split:
  7.   #il prend le premier mot de la ligne tel qu'il est ecrit dans ton code...
  9.   chomp; # pour virer le "\n" final
  11.   if ($_ ne $plop) {
  12.     print "plop\n";
  13.   } else {
  14.     last;
  15.   }
  16. }
  18. close(IN);


Message édité par pospos le 11-07-2003 à 19:29:50
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed