Re: Text::Balanced with nested / custom brackets

As far as I can tell, Text::Balanced deals with single-character delimiters, whereas your delimiter has two. You might have to resort to using a regexp.

my $extractor;    # Must be a seperate statement.
$extractor = qr/
   \[\[
   (?:
      (?:  (?! \[\[ | \]\] ) .  )+
   |
      (??{ $extractor })
   )+
   \]\]
/x;

my @links = $text =~ /$extractor/g;
[download]

Optimized (I think):

my $extractor;    # Must be a seperate statement.
$extractor = qr/
   \[\[
   (?> (?:
      (?:
         (?> [^\[\]]+ )
      |
         \[ (?! \[ )
      |
         \] (?! \] )
      )
   |
      (??{ $extractor })
   )+ )
   \]\]
/x;

my @links = $text =~ /$extractor/g;
[download]

Tested.

Comment on Re: Text::Balanced with nested / custom brackets Select or Download Code

Replies are listed 'Best First'.
Re^2: Text::Balanced with nested / custom brackets by Anonymous Monk on Sep 07, 2006 at 22:18 UTC
Thank you for those regexes! I'll play around with them to see if I can get myself moving. In the long run, I'd still like to know if Text::Balanced can be massaged into dealing with this situation. It does deal with <tags> and such..	[reply]
Re^3: Text::Balanced with nested / custom brackets by ikegami (Patriarch) on Sep 07, 2006 at 22:36 UTC
The function to extract tagged data can indeed be used. `my @links; my $extractor = gen_extract_tagged('[[', ']]', qr/(?:(?!\[\[).)*/); for (;;) { (my $link, $text) = $extractor->($text); last if not defined $link; push(@links, $link); }` [download] Untested.	[reply] [d/l]
Re^2: Text::Balanced with nested / custom brackets by wojtyk (Friar) on Sep 08, 2006 at 15:56 UTC
It's worth noting that ikegami's code is essentially a derivation of code in perlre for matching balanced parens: `$re = qr{ $ (?: (?> [^()]+ ) # Non-parens without backtracking \| (??{ $re }) # Group with matching parens )* $ }x;` [download]	[reply] [d/l]