Help for this page

Select Code to Download


  1. or download this
    >perl -E"1 for @h{x}; say exists($h{x}) || 0;
1
...

>perl -E"my $r = \@h{x}; say exists($h{x}) || 0;
1
  2. or download this
    >perl -E"1 for $h{x}; say exists($h{x}) || 0;
1
...

>perl -E"\@h{x}; say exists($h{x}) || 0;
1
  3. or download this
    >perl -E"sub {}->( @{[ @h{x} ]} );  say exists($h{x}) || 0;"
0

>perl -E"sub {}->( do { @h{x} } );  say exists($h{x}) || 0;"
0