[PERL] regexp
Résolu
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?
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?
Configuration: Windows XP Internet Explorer 6.0
