Re: Determining if you have balanced delimiters

sub balanced_delimiters {
    local $_ = shift;
    my %sub;
    @sub{@_} = ("(",")","\\");
    my $LRS=join'|',map quotemeta,@_;
    {local $^W=0;s/($LRS|.)/$sub{$1}/gs; eval{m/$_/} }
    return !$@;
}
[download]

Comment on Re: Determining if you have balanced delimiters Download Code

Replies are listed 'Best First'.
Re (tilly) 2 (fails): Determining if you have balanced delimiters by tilly (Archbishop) on Dec 16, 2000 at 22:55 UTC
Darned clever. Too bad that: `balanced_delimiters('(\a)', '(', ')', "\\")` [download] returns the wrong thing. Perhaps you meant this? `sub balanced_delimiters { local $_ = shift; my %sub; @sub{@_} = ("(",")"); my $LRS=join'\|',map quotemeta,@_; $LRS .= "($LRS)"; {local $^W=0;s/($LRS\|.)/$sub{$1}/gs; eval{m/$_/} } return !$@; }` [download] A behaviour note, the escape sequence properly escapes the escape sequence.	[reply] [d/l] [select]
Re: Re (tilly) 2 (fails): Determining if you have balanced delimiters by I0 (Priest) on Dec 17, 2000 at 04:34 UTC
Thank you for catching that, it was meant more like `@sub{@_} = ("(",")"); my $LRS=join'\|',map quotemeta,@_; {local $^W=0;s/($LRS.\|.)/$sub{$1}/gs; eval{m/$_/}` [download]	[reply] [d/l]