RegEx for Matching paranthesis

[Anonymous Monk]

Hi, I need to extract a text in between nested paranthesis, and I would like to have the text in between the outermost one. For eg., if the text is given as <code start>I am (giving this (text to (tell you) that this) will give) you the result.<code end> In this case, I need the phrase, (giving this (text to (tell you) that this) will give) This should hold for any number of nested paranthesis. Is there a way to achieve this using Regular Expressions? Or is it the conventional way that is best suited for this? Is there a function which can give the matching paranthesis locations in a given string? As I am a beginner to Regular Expressions of Perl, a code snippet would be of immense help to me.

[larsen]

Perl is nice: you can solve your problem remaining a beginner in Regexp :)) (just kidding): take a look at Text::Balanced, maybe it can help you.

[Roger]

I would recommend using the CPAN module as suggested by larsen. However I am presenting this solution just for fun... :-)


use strict;
use warnings;

my $str = 'I am (giving this (text to (tell you) that this) will give)
+ you the result)))';

my $match = '';

{
    local $_ = $str;
    my $n = 0;

    s/([()]|.)/
      if ($1 eq '(') {
            $n++;
            $match .= $1
      } elsif ($1 eq ')') {
            if ($n) {
                $n--;
                $match .= $1
            }
      } else {
            $match .= $1 if $n
      }
    /gex;
}

print "$match\n";

__END__

# output
(giving this (text to (tell you) that this) will give)

[diotalevi]

I have already written this at Maximal match in a recursive regex.

[Taulmarill]

if you want only the text betwen the most left "(" and the most right ")" then this should do:
/^[^(]*(.*?)[^)]*$/

---edit---

oh, yes, after
$text =~ /^[^(]*(.*?)[^)]*$/;
the snippet you want is in $1.

[borisz]

Here is a regex taht match nested braces.

my $match;
$match = qr/(?:\((?:(?>[^\(\)]+)|(??{$match}))*\))/;

if ( $text =~ /($match)/ ) {
  print $1; # text between nested ( and )
}

[I0]

$_ = qq(For eg., if the text is given as
<code start>I am (giving this (text to (tell you) that this) will give
+) you the result.
<code end> In this case, I need the phrase, (giving this (text to (tel
+l you) that this) will give)
This should hold for any number of nested paranthesis.);
(my $re = $_) =~ s/((\()|(\))|.)/${['(','']}[!$2]\Q$1\E${[')','']}[!$3
+]/gs;
print eval{(/$re/)[0]},"\n";
warn $@ if $@;

[eyepopslikeamosquito]

See perlfaq6 "Can I use Perl regular expressions to match balanced text?" but be sure you're looking at a recent version (Perl 5.8 or above) since earlier versions don't mention the excellent Text::Balanced solution.

It's also discussed in the Perl Cookbook, Recipe 6.17 (Matching Nested Patterns).

/-\