[PERL] regexp

Résolu
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   -  
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   -
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?
A voir également:

1 réponse

Réponse 1 / 1
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
Pour ceux qui cherchent, il faut mettre $
until ($tableau[$_] =~ /toto$/

a+
0

Discussions similaires

[PERL] problème avec la fonction exec()
Toine -
lami20j -

8 réponses
Perl et Variable
Goku -
lami20j -

13 réponses
[Perl] WWW::Mechanize
startx -
Judicael -

1 réponse
Comment executer un script Perl ?
john_du_67 -
john_du_67 -

13 réponses
execution d'un fichier.txt avec perl
karim_khouja -
karim_khouja -

6 réponses