how to remove blocks between nested brackets

[Si]

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.

 

[John W. Krahn]

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)"

$ perl -le'
my $line = q{abcd efgh [ij: 123-[456]-klm; nop-789]; qrst; uvw [xyz:
98-76-[ef]; gh; ijkl] (mnop)};

1 while $line =~ s/\[[^][]*]//g;

my @array = split /\s*;\s*/, $line;

print qq["$_"] for @array;
'
"abcd efgh"
"qrst"
"uvw (mnop)"



John

 

[sopan.shewale]

Hi,

People have already answered your question - i just thought of adding
value to the discussion.

Have a look at the articles:

[1]. http://blog.stevenlevithan.com/archives/regex-recursion
[2]. http://perl.plover.com/yak/regex/samples/slide083.html

This articles will help you to understand the solutions posted in this
discussion and give high level understanding about the problem.

Regards,

--sopan shewale