Re: Balancing Parens

Well, I don't know what the real data may look like, but this works for me with your $teststr:

$teststr="blah,blah(blah,blah(blah,blah(blah))),blah";

if ($teststr =~ /^(\w*),(.*?),(\w*)$/) {
    print "1: $1\n2: $2\n3: $3\n";
}
[download]

Cheers,
KM

Comment on Re: Balancing Parens Download Code

Replies are listed 'Best First'.
RE: Re: Balancing Parens by swiftone (Curate) on Jun 01, 2000 at 22:28 UTC
Ah, I should have been more specific. The real data can have a variable number of elements. Thanks anyway.	[reply]
RE: RE: Re: Balancing Parens by KM (Priest) on Jun 01, 2000 at 22:31 UTC
Well, be more specific. Show examples of the actual possible data, no pseudo-data that won't look like the actual data. Give us some test cases. Cheers, KM	[reply]
RE:(4) Balancing Parens by swiftone (Curate) on Jun 01, 2000 at 22:39 UTC
Okay: `Acrobatics, P/H, default(DX-6), page(B48) Bicycling, P/E, default(DX-4, SK:Motorcycle), page(B48) Breath Control, M/VH, page(B48) Free Fall, P/A, default(DX-5, HT-5), page(B48) Jumping, P/E, page(B48) Parachuting, P/E, default(DX-4, IQ-6), page(B48) Swimming, P/E, gives(=@max(@int(%Level/10), 1) to Swim), default(DX-4, + ST-5), page(B49)` [download] These being 4,4,3,4,3,4, and 5 elements respectively. The last one is a more complicated one, and the third element should be: gives(=@max(@int(%Level/10), 1) to Swim) There is no limit to how many function calls can be embeded (so func1(func2(func3(...funcN()...) )	[reply] [d/l]
RE: RE:(4) Balancing Parens by Anonymous Monk on Aug 17, 2000 at 10:20 UTC


Come for the quick hacks, stay for the epiphanies.
	PerlMonks