Help for this page

Select Code to Download


  1. or download this
    sub empty_list {
  return @{ [] }
...
my @y=(empty_list())[0];
my $x = (empty_list())[0];
use Data::Dumper;print Dumper \$x,\@y;
  2. or download this
    my @y=(empty_list())[0];  # @y = ();
my $x = (empty_list())[0];  # $x = undef;

my %x = (foo=>$x);
my %xx = (foo=>@y);
  3. or download this
    my %x=(foo=>scalar((empty_list1())[0]));