<?xml version="1.0" encoding="windows-1252"?>
<node id="571822" title="Re^3: Text::Balanced with nested / custom brackets" created="2006-09-07 18:36:01" updated="2006-09-07 14:36:01">
<type id="11">
note</type>
<author id="381608">
ikegami</author>
<data>
<field name="doctext">
&lt;p&gt;The function to extract tagged data can indeed be used.

&lt;c&gt;
my @links;
my $extractor = gen_extract_tagged('[[', ']]', qr/(?:(?!\[\[).)*/);
for (;;) {
   (my $link, $text) = $extractor-&gt;($text);
   last if not defined $link;
   push(@links, $link);
}
&lt;/c&gt;

&lt;p&gt;Untested.
</field>
<field name="root_node">
571798</field>
<field name="parent_node">
571818</field>
</data>
</node>
