Help for this page

Select Code to Download


  1. or download this
    if( exists($hash->{akey}) && defined($m=$hash->{akey}) && ($m==1) ){ $
+y = $m; ... }
# don't trust $m here
  2. or download this
    use strict;
use warnings;
...
    '3' => $m++
);
print Dumper(\%hash2);
  3. or download this
    $VAR1 = {
          'a' => 10,
...
          '2' => 11,
          '3' => 12
        };