Perl

[Perl] break

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] break

deviant

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

Publicité

deviant

J'ai trouvé mais ca doit être optimisable

Code :

foo: while(<MESURE> )
{
($x2) = split /\s/;
if ($x != $x2)
{
print "$x2 0\n";
}
else { last foo };
}

pospos

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 :

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

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

FORUM HardWare.fr

Programmation

Perl

[Perl] break

Sujets relatifs
[Perl] Petite regexp	[perl] Récupérer les parametres dans l'url d'un cgi
[Perl] lecture/écriture d'un fichier	[c] perl embed sous linux
[Perl] Effacer éléments du tableau	[Perl CGI] Passer des paramètres à une cgi à partir d'une autre cgi
[Perl] Vitesse entre grep et defined	[Perl] Compte à rebours
[Perl] Substitution	[Perl] Hash et cgi
Plus de sujets relatifs à : [Perl] break

Page générée en 0.037 secondes