Problème avec Regex capture multiple

Bonjour,

J'ai des difficultés avec une regex.

Voilà, j'ai des chaines du type :

Code:

---

1 2	$ligne = arthralgies || NEOCLASSIQUE || douleurs articulaires | douleurs des articulations | || FREQ || douleurs : 2 || articulations : 1 | articulaires : 1 |

---

Et je voudrais extraire tout ce qui contient "douleurs" entre deux pipe => je devrais obtenir :

-douleurs articulaires
-douleurs des articulations

Mais soit j'obtiens uniquement le premier, soit uniquement le deuxième :?

Je pensais d'abord à un truc "simple" du genre :

Code:

---

1 2	my @matches = ($ligne =~ /\|(.*?douleurs.*?)\|/gi);

---

Mais je n'obtiens pas toutes les possibilités (j'ai uniquement la première).

Merci d'avance pour votre aide, parce que là je sèche (et c'est pas dur avec la météo actuelle ;)

Bonsoir,

Essaye

Code:

---

my @matches = $ligne =~ m{\|*([^\|]*douleur[^\|]*)\|*}g;

---

Le problème est que le pipe qui sépare les deux champs que tu veux récupérer ne peut "être matché" deux fois (une fois à la fin du premier champ, une fois au début du deuxième). Tu peux utiliser une classe de caractère qui exclut le pipe à la place du point comme l'a fait djibril, tu peux même virer les pipes de l'expression si ça te chante.

Comme ta ligne est composée de champs séparés par un pipe, tu peux aussi utiliser split et filtrer avec grep:

Code:

---

my @result = grep { /douleurs/ } split /\|/, $ligne;

---

Bonjour et Merci Djibril et CosmoKnacki pour vos réponses :)

La première méthode ne me permet d'avoir que "douleurs articulaires" et pas "douleur de articulations".
La deuxième donne bien les 2 mais j'ai en plus la fréquence "douleurs : 2" dont je n'ai pas besoin.

Du coup, merci pour l'astuce du split, parce que ça marche en faisant d'abord un split sur le || qui me permet de conserver uniquement la partie que je veux avant de faire le deuxième split tel que montré :

Code:

---

1 2	my @infos = split /\|\|/, $ligne; my @matches = grep { /douleurs/ }split /\|/, $infos[2];

---

Encore merci pour votre aide !!

Que tu peux écrire en une seule instruction :

Code:

---

my @matches = grep /douleurs/, split /\|/, (split /\|\|/, $ligne)[2]

---

En fait la "première méthode" marche aussi, il faut juste remplacer le m à la fin par g (c'est juste une typo) pour avoir l'ensemble des correspondances.

OK merci Philou67430, je ne savais pas qu'on pouvait tout condenser comme ça.

@CosmoKnacki : je ne savais pas à quoi servait ce "m" à la fin. Je croyais qu'on ne le mettait toujours qu'en début de regex :oops:

C'est bien j'en apprends tous les jours !

Bonne journée :)

Pour le /m en fin de regexp, c'est une option (voir perldoc perlre). Il permet de considérer que les caractères spéciaux ^ et $ correspondent à un début ou une fin de ligne n'importe où dans la chaine et non uniquement au début ou à la fin de cette chaine (m pour "multiple lines").
A ne pas confondre avec l'option /s (single line), qui permet elle de considérer que le caractère spécial . corresponde à n'importe quel caractère y compris un retour à la ligne (ce qui n'est pas le cas si l'option n'est pas présente). Il est d'autant plus à ne pas confondre que l'on utilise souvent ces deux options en même temps (/ms).

le m est juste une erreur de copier/coller, c'était un g en fait :aie:. Sinon, l'idée du split est très bien et je te la recommande.

Super, merci pour toutes ces infos ;)