Help for this page

Select Code to Download


  1. or download this
    $ perl -Mv5.14 -e'my @a; \$a[0]; say exists( $a[0] ) || 0;'
1
  2. or download this
    use Devel::Peek;

...

say '---Dump $z[1]';
Dump $z[1];
  3. or download this
    $z[0] exists: 0
$z[1] exists: 1
...
  REFCNT = 2
  FLAGS = ()