Help for this page

Select Code to Download


  1. or download this
    $ perl -le 'my(%one,%two);$one{k}=1;$two{k}=2;delete $one{k}, $two{k};
    + print "one exists" if exists $one{k};print "two exists" if exists $t
    +wo{k}'
    two exists