Discussion :

[sequoia]

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]

Bonsoir,

Essaye

Code :

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

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

[CosmoKnacki]

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]

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]

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]

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]

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