Help for this page

Select Code to Download


  1. or download this
    use strict;
my $f;
($f = {})->{foo} = 'bar';
my %new;
%new = %{undef()};    # not okay
  2. or download this
    $\ = $/;
$h = '';
...
HASH(0x885d7a4)
HASH(0x885d7a4)
Can't use an undefined value as a symbol reference at - line 11.
  3. or download this
    ${''}{foo} = 'bar';
$h = '';
...
print "$_ => $new{$_}\n" for keys %new;
__END__
foo => bar