Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -we'{my %hsh;sub set:lvalue{$hsh{shift}}}my $baz=set("
+foo")="bar"; print $baz,$/,set("foo"),$/'
bar
bar
$
  2. or download this
    $ perl -Mstrict -we'{my %hsh;sub set:lvalue{$hsh{shift}}}my $baz=set("
+foo")=([qw/bar baz/]); print $baz,$/,defined set("foo"),$/'
ARRAY(0x8106284)
1
$