Pb Regex : utilisation classe complémentée avec une chaine

Bonjour,

En Perl, Je cherche l'expression régulière qui me renverrait OK si la chaine soumise contient autre chose que SCTPCM ou SCTREVE ou SCTSGN

exemples (la chaine commence tjrs par un espace) :

" TOTO" ==> OK
" SCTPCM SCTSGN SCTREVE" ==> KO
" SCTREVE SCTPCM SCTRDI" ==> OK (SCTRDI)
" SCTREVE SCTPCM" ==> KO
" SCTSGN" ==> KO
" SCTSGR" ==> OK (SCTSGR)

j'ai essayé avec les classes complémentées

Code:

---

1 2 3 4 5

if ($Source =~ m/ [^(SCTPCM|SCTREVE|SCTSGN)]/) {$controleSource="OK";} else {$controleSource="KO";}

---

mais cela ne fonctionne pas, le test réussit toujours

Comment faire ?

[^...] c'est une classe de caractères complémentaire...
Parfois on est tellement obnubilé par les regex qu'on en oublie qu'il existe un "not" ou un "!~" : :roll:

Code:

---

1 2 3 4

if ( $Source !~ m/(SCTPCM|SCTREVE|SCTSGN)/ ) {$controleSource="OK";} else {$controleSource="KO";}

---

--
Jedaï

Gloups...

Bah, effectivement, je me suis trop focalisé sur l'expression régulière !

Merci en tout cas !