Re^2: regular expression paranthesis remover

That's needlessly complicated, simply replace the stuff you don't want with nothing (as Anonymous Monk already said): s/$.*$//.

The balancing caveat still applies, of course.

Update: thospel is completely correct, my solution above (and Zaxo's) doesn't work for multiple parenthesis in the same string. To fix this (and actually make it recognise balanced parens):

$_ = "111(22(33)44)55";
1 while s/ \( [^()]* \) //gx;
if (/[()]/) {
  print "unbalanced!!";
} else {
  print;
}
[download]

BTW, I just noticed a small typo in Zaxo's code, it doesn't work as it stands. It should be my $re = qr/.../;.

-- Hofmator

Comment on Re^2: regular expression paranthesis remover Select or Download Code

Replies are listed 'Best First'.
Re^3: regular expression paranthesis remover by thospel (Hermit) on Jun 25, 2004 at 12:26 UTC
Fails on the perfectly balanced "12(34)56(78)9" Assuming it's about removing balanced parenthesis, I'd go for: `my $balance; # Notice declaring $balance beforehand is important, # otherwise you pick up the global inside (??{}) $balance=qr/(?:[^()]\|$(??{$balance})$)*/; $string =~ s/$$balance$//g;` [download]	[reply] [d/l]