[PERL] regexp

[Résolu/Fermé]
Signaler
Messages postés
109
Date d'inscription
mercredi 16 juillet 2008
Statut
Membre
Dernière intervention
4 janvier 2011
-
Messages postés
109
Date d'inscription
mercredi 16 juillet 2008
Statut
Membre
Dernière intervention
4 janvier 2011
-
Bonjour,

Je souhaite tester des lignes dans un fichier. Je place le tout dans un tableau avant de faire le teste.
exemple de ligne dans mon fichier :
toto

Je veux que : s'il y a toto, return vrai
s'il y a toto+ quelque chose après, return faux

La condition dans le programme est :

for ( 0 .. $#tableau ) {
until ($tableau[$_] =~ /toto/ ) {
print " ERREUR \n";
exit;
}
}

Ceci ne marche pas, car si j'ai totoi, il n'y a pas d'erreur.
J'ai essayé avec \ à la fin mais ca ne fonctionne pas.

Pouvez vous m'aider?

1 réponse

Messages postés
109
Date d'inscription
mercredi 16 juillet 2008
Statut
Membre
Dernière intervention
4 janvier 2011
1
Pour ceux qui cherchent, il faut mettre $
until ($tableau[$_] =~ /toto$/

a+