[Perl] [HS] Problème de parenthèses

[Paul Gaborit]

Le 12/06/2023 à 10:10, Philippe Delavalade a écrit :
> Je viens d'installer Regexp::Common ; j'ai jeté un coup d'œil rapide à la
> doc et pour l'instant ça me semble un peu nébuleux mais je vais faire des
> tests.

Est-ce que l'exemple suivant aide:

###################
use Regexp::Common;

my $data = "
(aaa)
(aaa (bbb) (ccc) ddd)
(multiline (ffff) (ggg
hhh))
";
while ($data =~ m/$RE{balanced}{-parens=>'()'}/g) {
   print "=>", $1, "\n";
}
###################

Cordialement,
-- 
     Paul Gaborit