[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 - Guide
Active perl - Télécharger - Édition & Programmation
RegExp : comment interdire une chaine ✓ - Forum Programmation
/Usr/bin/env: ‘perl\r’: no such file or directory ✓ - Forum Linux / Unix
Can't open perl script "makefile.pl": no such file or directory - 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

ping en perl

[PERL] Ecrire dans une log en PERL

regex+postfix+header_checks

Script PERL + Module Net::SNMP

Discussions similaires

Newsletters