Re^2: search for matching parentheses

Wow, thank you ALL for your prompt replies! So many options... :-)
I decided to check out the module Text::Balanced, since it seems it could be useful to me not just for this problem but in the future.
But... I'm having some problems with it. I'm wondering why the below code does not work. I'm expecting this piece of code to extract "(x,y,z)", and put ", Param2(1,2,3), Param3(a,b,c)" in the remainder, and "Param1" in the prefix. But it doesn't work. It puts everything in the remainder.

$string = "Param1(x,y,z), Param2(1,2,3), Param3(a,b,c)";
print "Original string: ", $string,  "\n";

($ext,$rem,$pre) =extract_bracketed($string,'()','.*?');
print "extracted: ", $ext, "\n";
print "remainder: ", $rem, "\n";
print "skip pref: ", $pre, "\n";
[download]

Any help would be greatly appreciated.
Thanks! Emma

Comment on Re^2: search for matching parentheses Download Code

Replies are listed 'Best First'.
Re^3: search for matching parentheses by davorg (Chancellor) on Oct 23, 2006 at 09:53 UTC
It seems to work like this: `use Text::Balanced qw(extract_bracketed); my $string = "Param1(x,y,z), Param2(1,2,3), Param3(a,b,c)"; print "Original string: ", $string, "\n"; my ($ext,$rem,$pre) = extract_bracketed($string, '()', '[^(]'); print "extracted: $ext\n"; print "remainder: $rem\n"; print "prefix: $pre\n";` [download] All I've really changed is the prefix regex. I'm now saying that the prefix is one or more non-bracket characters. I'm a little confused tho' - I'd expect that to be the default behaviour. -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club."* -- Chip Salzenberg	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: search for matching parentheses
by davorg (Chancellor) on Oct 23, 2006 at 09:53 UTC

It seems to work like this:

use Text::Balanced qw(extract_bracketed);

my $string = "Param1(x,y,z), Param2(1,2,3), Param3(a,b,c)";
print "Original string: ", $string,  "\n";

my ($ext,$rem,$pre) = extract_bracketed($string, '()', '[^(]*');
print "extracted: $ext\n";
print "remainder: $rem\n";
print "prefix:    $pre\n";
[download]

All I've really changed is the prefix regex. I'm now saying that the prefix is one or more non-bracket characters. I'm a little confused tho' - I'd expect that to be the default behaviour.

--
<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

[reply]
[d/l]