Re^3: Using qw to check for balanced parentheses (oops)

Simplified return value and shortened code by avoiding needless use of $_:

sub balanced {
    (my $s = shift) =~ s/[^()]//g;
    eval "qw($s); 1"
}
[download]

Or in 5.14+:

sub balanced {
    my $s = shift =~ s/[^()]//rg;
    eval "qw($s); 1"
}
[download]

Comment on Re^3: Using qw to check for balanced parentheses (oops) Select or Download Code

Replies are listed 'Best First'.
Re^4: Using qw to check for balanced parentheses (oops) by Anonymous Monk on Oct 23, 2014 at 16:04 UTC
I may be mistaken, but this does not detect a case like "}a{" , or does it? how about `sub balanced { (my $s = shift) =~ s/[^()]//g; while ( $s =~s /// ){}; return $s ? 0 : 1; }` [download] It does not use qr and is slower, I would think, but reports '}{' as incorrect	[reply] [d/l]