Help for this page

Select Code to Download


  1. or download this
    $ perl -le'print $r||"[undef]"; $r->{x}; print $r||"[undef]";'
[undef]
HASH(0x814ec28)
  2. or download this
    $ perl -le'sub f {} print 0+keys %h; for ($h{x}) {} print 0+keys %h;'
0
1