variable différents de plusieurs valeurs

Salut

je veux faire une variable qui ne dois pas égale a plusieurs valeurs

$val !~ (A et A2 et C1 et C2 et C3 et C4 et C5 C6 D1 D2 D4 D5 D6 DA FC G1 G2 M1 M2 M3 M4 M5 M6 P1 S1 Y)

est ce qu'il y'a une facon plus simple au lieu de faire des répétitions ?

Une solution qui me viens comme sa

Code:

---

1 2 3 4 5

if ($val !~ /A(|2)|C(1|2|3|4|5|6|)|D(1|2|3|4|5|6|A)|FC|G(1|2)|M(1|2|3|4|5|6)|P1|S1|Y/gi) { ... }

---

Des années que je n'ai pas fait de perl donc je ne suis pas très sure

quasi pareille que teddyalbina

Code:

---

$val !~ /^A2?|C(1|2|3|4|5|6|)|D(1|2|3|4|5|6|A)|FC|G(1|2)|M(1|2|3|4|5|6)|P1|S1|Y$/i

---

Ok,

c'était une bonne solution et agréable aussi

merci car c'est quasi fonctionnel