Expression régulière en perl

Bonjour à tous,

J'ai un programme perl qui lit un fichier texte, je dois faire une recherche et ressortir toutes les lignes qui correspondent à ma demande :

Ma chaîne doit contenir 3 textes séparé uniquement par 2 signes "-", chaque morceau de texte doit finir par la lettre X

(Ex : LKX-JKJJXXX-XKJLX est valide, mais X-X-X ou XXX-XVX-XX aussi)

Je n'arrive pas à obtenir mon résultat, j'ai essayer plusieurs expressions sans succès comme :

Code:

---

1 2 3

if ($chaine =~ /X-*X-*X$/) { #code }

---

Mais il ne me sort pas les bons résultats, il me sort également les lignes avec plus de 2 signes "-", j'ai vu que pour rechercher x élément on peut utiliser : -{2} mais je n'arrive pas a lier la recherche des X et du nombre de signes "-" présent dans la ligne à rechercher. En espérant avoir été clair.

salut,

Citation:

---

Envoyé par BakSh0

Ma chaîne doit contenir 3 textes séparé uniquement par 2 signes "-", chaque morceau de texte doit finir par la lettre X
(Ex : LKX-JKJJXXX-XKJLX est valide, mais X-X-X ou XXX-XVX-XX aussi)

---

les exemples que tu donnes peuvent ne pas être suffisants, est-ce que 123X-456X-789X ou _______________X-aBcDX-e*$ùX sont valides par exemple ?

si on considère que les "3 textes séparés" doivent comporter exactement 5 lettres majuscules (incluant le 'X') ça pourrait donner ça par exemple

Code:

---

$chaine =~ /[A-Z]{4}X-[A-Z]{4}X-[A-Z]{4}X/

---

Merci de l'information, je vais être encore plus précis :

Je n'ai en fait que deux caractères possible : disons X et D, j'ai donc besoin que ces informations soient valides :

DXXDX-X-XXXDX ou X-X-X ou => sont tous OK

Mais XXXXD-XXX-X ne doit pas être valide (premier mot termine par D) et XXXDX-XX-XDDX-XDX n'est pas valide (contient 4 mots)

Précision : la longueur des mots sont variable ils peut y avoir 1 lettre (le seul X) comme n lettres.
Merci

Edit : Résolu avec ceci :

Code:

---

1 2 3

if ($phoStrSyl =~ /^[DX]{0,}?X\-[DX]{0,}?X\-[DX]{0,}?X$/) { #code }

---

ok, plus simple alors avec $chaine =~ /^[DX]*X-[DX]*X-[DX]*X$/

Bonsoir,

Code:

---

$chaine =~ m{[dx]*x-[dx]*x-[dx]*x}i

---