in reply to Re: Script Stripper
in thread Script Stripper

Long live Perl 6. 
%hash{qw(a b c)} ^= 1;
# or maybe...
%hash{qw(a b c)}^++;

[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Replies are listed 'Best First'.
Re: Re: Re: Script Stripper
by Juerd (Abbot) on Dec 26, 2001 at 11:21 UTC
    Perl6 will indeed be great. But undef values are sufficient in this case ;) 

    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$

    [download]

[reply]
[d/l]

In Section Code Catacombs