Problème avec Regex capture multiple

**sequoia** · 20/07/2016, 19h27

Bonjour,

J'ai des difficultés avec une regex.

Voilà, j'ai des chaines du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**djibril** · 20/07/2016, 19h43

Bonsoir,

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**CosmoKnacki** · 20/07/2016, 22h13

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**sequoia** · 21/07/2016, 13h55

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Encore merci pour votre aide !!

**Philou67430** · 21/07/2016, 14h30

Que tu peux écrire en une seule instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**CosmoKnacki** · 21/07/2016, 14h34

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.

**sequoia** · 21/07/2016, 14h42

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

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

Bonne journée

**Philou67430** · 21/07/2016, 15h16

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).