Help for this page

Select Code to Download


  1. or download this
    $ perl -MDevel::Peek -e'Dump(undef)'
SV = NULL(0x0) at 0x2186148
  REFCNT = 2147483639
  FLAGS = (READONLY,PROTECT)
  2. or download this
    $ perl -MDevel::Peek -e'Dump($a[0])'
SV = NULL(0x0) at 0x1116148
  REFCNT = 2147483639
  FLAGS = (READONLY,PROTECT)
  3. or download this
    $ perl -MDevel::Peek -e'$a[0]=undef; Dump($a[0])'
SV = NULL(0x0) at 0xc93f90
  REFCNT = 1
  FLAGS = ()
  4. or download this
    use feature qw( say );
my @a;
...
{ say open(my $fh, '<', $a[0]) ? 1 : 0; }  # 0
delete($a[0]);
{ say open(my $fh, '<', $a[0]) ? 1 : 0; }  # 1