[PERL] regexp

Résolu/Fermé

wafa_o Messages postés 109 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 4 janvier 2011 - 19 nov. 2008 à 08:50
wafa_o Messages postés 109 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 4 janvier 2011 - 19 nov. 2008 à 09:24

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:

[PERL] regexp
Denon perl pro test - Accueil - Audio
Tableau(perl) ✓ - Forum Perl
Perl ftp - Forum Perl
Active perl - Télécharger - Édition & Programmation
PERL -- liste - Forum Perl

1 réponse

Réponse 1 / 1

wafa_o Messages postés 109 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 4 janvier 2011 2
19 nov. 2008 à 09:24

Pour ceux qui cherchent, il faut mettre $
until ($tableau[$_] =~ /toto$/

a+

Discussions similaires

Extension fichier sous perl

PERL Split

[RegExp][JavaScript] Problème avec une RegExp

regex+postfix+header_checks

perl Makefile.PL