Discussion :

[Vovo2006]

Bonjour à tous

Dans une chaîne je cherche à extraire tout ce qui est compris entre {{ et }}
-> $entry =~ s/\{\{([^\}]*)\}\}/&EntryReplaceMsgTag($1)/ge ;

Mais voila si ma chaîne contient d'autres accolades ce n'est plus bon !
exemple : {{ toto {{tata}} }}, dans ce cas je veux récuperer toto {{tata}}
Comment faire ?

Pour résumer comment trouver la bonne accolade fermante d'une ouvrante ?

Merci pour votre aide !

[MarneusCalgarXP]

Dans ce cas, il faut jouer avec le début de la ligne (^) et la fin de la ligne ($), en précisant que tu cherches tout ce qui se trouve entre les 1° accolades ouvrantes et les dernières accolades fermantes, et dire dans ton bloc capturant que tu veux n'importe quel caractère:

Code :

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

$entry =~ s/\^.*?\{\{(.*)\}\}.*?$/&EntryReplaceMsgTag($1)/ge ;

[Vovo2006]

Dans ce cas, il faut jouer avec le début de la ligne (^) et la fin de la ligne ($)

Merci pour la réponse, mais j'ai oublié de préciser que mon texte est sur plusieurs lignes...

le {{toto est {{l'ami}}
des animaux}} et des plantes

et je dois avoir :

toto est {{l'ami}}
des animaux

et non pas
toto est {{l'ami

Dur Dur!

[Antoun]

tu te limites à un seul niveau d'imbrication, ou il peut y en avoir un nombre arbitraire ? (du genre {{abd {{ def {{ ghi}} jkl }} mno }}pqr)

[Antoun]

ça y est, je l'ai ! quel que soit le niveau d'imbrication :

$entry =~ s/\^.*?\{\{([^{]*)\}\}.*?$/&EntryReplaceMsgTag($1)/ges ;

si tu veux autoriser un { isolé à l'intérieur des {{...}}, c'est ([^{]|\{[^{])*

[pospos]

cpan à la rescousse: Text::Balanced
http://search.cpan.org/~dconway/Text...xt/Balanced.pm

[Vovo2006]

Merci à tous,
Je n'y arrive pas !

j'ai par exemple :
c'est {{{{la}} faute {{à}}}} {{la}} voisine {{et voila}}.
et le résultat doit être
{{la}} faute {{à}}

c'est à dire que dés que j'ai {{, je dois extraire la chaîne jusqu'au bon
}} fermant, sans tenir compte des éventuels {{ }} inclus !

Je ne peux pas me baser sur la fin de ligne !
Et je n'ai pas l'impression que &extract_bracketed fonctionne bien avec des
délimiteurs doubles

Je tourne en rond

[Antoun]

tu as essayé la mienne (avec le /s et en slurp mode) ?

je n'ai pas eu le temps de la tester (il peut donc rester des pétouilles), mais je suis sûr du principe, càd utiliser [^{] au lieu de . dans les parenthèses capturantes.

si tu n'y arrive pas dans la journée, j'essaie de te faire ça ce soir.

[Vovo2006]

tu as essayé la mienne (avec le /s et en slurp mode) ?

Non, ça ne marche pas, la difficulté est que je dois commencer la
capture au 1er {{ et la continuer jusqu'au 1er }} sans tenir compte
d'eventuels }} qui ne seraient pas les fermants du 1er {{ !

Encore merci pour cette aide précieuse

[Antoun]

Non, ça ne marche pas, la difficulté est que je dois commencer la
capture au 1er {{ et la continuer jusqu'au 1er }} sans tenir compte
d'eventuels }} qui ne seraient pas les fermants du 1er {{ !

ah, toutes mes excuses, j'avais compris le contraire, que tu voulais seulement le niveau le + profond... ton exemple était pourtant clair, il faut que j'arrête la vodka !

La solution est au chapitre "Perl", la section sur les parenthèses imbriquées à un niveau arbitraire, du bouquin de Friedl (Maîtrise des expressions régulières, chez O'Reilly), mais cela réclame une lecture approfondie dont je n'ai pas le temps...

[Jedai]

Je ne peux pas me baser sur la fin de ligne !
Et je n'ai pas l'impression que &extract_bracketed fonctionne bien avec des
délimiteurs doubles

La bonne fonction est extract_tagged dans ton cas.

Par ailleurs, il est peu raisonnable de tenter de résoudre la question par des regexs, en effet les regexs classiques sont incapable de traiter ce problème (le langage des parenthèses équilibrées n'est pas rationnel) et si les "regexs" de Perl en sont capable, ce serait uniquement en faisant appel à des techniques non standard, assez fragiles et complexes...
A noter que Perl 6 permettra de faire ceci aisément.

--
Jedaï

[Vovo2006]

Merci à tous pour votre aide.
Voici une façon de faire en numérotant les {{ et }}

my $nested ;
$entry =~ s/(\{\{|\}\})/(substr ($1,1,1) eq "\{") ?
"\!" . ($nested++) . $1 :
($nested > 0) ? "\!" . (--$nested) . $1 : $1 /gxie ;
while ($nested > 0)
{ $entry .= "\!" . (--$nested) . "\}\}" ; } # assume end of tag at end of text

for (my $nested = 15 ; $nested >= 0 ; $nested--) # 30 is arbitrary upper limit for nested tags
{
$entry =~ s/\!$nested\{\{(.*?)\!$nested\}\}/&EntryReplaceMsgTag($1)/ge ;
}

$entry =~ s/\!\-?\d\{\{/\{\{/gi ; # clean up unmatched tags
$entry =~ s/\!\-?\d\}\}/\}\}/gi ; # clean up unmatched tags

[Antoun]

Bravo ! je me note ça dans un coin pour le jour où j'en aurai besoin !