Re: how to remove blocks between nested brackets
- From: Abigail <abigail@xxxxxxxxxx>
- Date: 31 Jan 2008 16:20:16 GMT
_
Si (silicium_at_h@xxxxxxxxxxxxxx) wrote on VCCLXVI September MCMXCIII in
<URL:news:47a1c3a1$0$902$ba4acef3@xxxxxxxxxxxxxx>:
:) Beeing new to perl and not wanting to learn using it like assembler, I
:) need to delete parts of a single line (possibly long) that are enclosed
:) between nested brackets:
:)
:) abcd efgh [ij: 123-[456]-klm; nop-789]; qrst; uvw [xyz: 98-76-[ef]; gh;
:) ijkl] (mnop)
:)
:) The comments between [] must be discarded to split with ';' delimiter.
:) The expected result is:
:) array[0] == "abcd efgh"
:) array[1] == "qrst"
:) array[2] == "uvw (mnop)"
:)
:) Thanks for a magic formula.
The magic formula is: \s*(\[[^][]*+(?:(?1)[^][]*+)*\])
my $_ = "abcd efgh [ij: 123-[456]-klm; nop-789]; qrst; uvw " .
"[xyz: 98-76-[ef]; gh;ijkl] (mnop)";
s {\s*(\[[^][]*+(?:(?1)[^][]*+)*\])} {}g;
my @array = split /;\s*/;
say qq {array[$_] == "}, $array [$_], qq {"} for 0 .. $#array;
__END__
array[0] == "abcd efgh"
array[1] == "qrst"
array[2] == "uvw (mnop)"
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
.
- References:
- Prev by Date: LaTeX rendering
- Next by Date: Re: Magic for object constructor wanted
- Previous by thread: Re: how to remove blocks between nested brackets
- Next by thread: FAQ 2.2 How can I get a binary version of perl?
- Index(es):
Relevant Pages
|
