in reply to Re: Re: Replacement Regex
in thread Replacement Regex

<BEGIN_TEMPT_FATE>This one will handle nested parens:</END_TEMPT_FATE> 

$_ = '(($a $a hi) $a ($a) $a)';
my  $re;
$re = qr/\((?:(?>[^()]*)|(??{$re}))*\)/;
s/($re)|\$a/$1?$1:'$b'/eg;
print;

__DATA__
(($a $a hi) $b ($a) $b)

[download]

Oops!

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Replies are listed 'Best First'.
Re: Re: Re: Re: Replacement Regex
by I0 (Priest) on Mar 22, 2002 at 00:34 UTC 
    $_ = '(($a $a hi) $a ($a) $a) $a ($a) $a ';
my $re;
($re=$_) =~ s/((\()|(\))|.)/${['(','']}[!$2]\Q$1\E${[')','']}[!$3]/gs;
$re = join'|',map{quotemeta}eval{/$re/};
die $@ if $@ =~ /unmatched/;
s/($re)|\$a/$1?$1:'$b'/eg;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom