Re: regex matching conditionally

[JupiterHost.Net]

Not what you asked for, but probably more correct:

my @matches;

use Regexp::Common;
my @quoted = ($string =~ /$RE{quoted}/g);

foreach my $quoted ( @quoted ) {
    push( @matches, ($quoted =~ /$RE{balanced}{-parens=>'{}'}/g) );
}

print join "\n", @matches;

Thanks, it was the same sort of idea but actually Mr. Johnson's regex 
seems to work perfectly, thanks for your input!


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>