Help for this page

Select Code to Download


  1. or download this
    sub clean {
   our $node; local *node = \$_[0];  # Alias
...
      $node = undef if !keys(%$node);
   }
}
  2. or download this
    use strict;
use warnings;
...
   print(dumper($d), "\n");
   print("\n");
}
  3. or download this
    [[1],[],{1 => 2,2 => {}}]
[[1],{1 => 2}]

[undef,[undef],{"x" => undef},\undef,\\$VAR1->[3]]
undef