Help for this page

Select Code to Download


  1. or download this
    package Tie::Hash::Default;
require Tie::Hash;
...

print "$_ => $h{$_}\n"
    for qw/foo bar baz/;
  2. or download this
    $h{asdf}++;        ## $h{asdf} == 0
$h{jkl} .= "jlk";  ## $h{jkl} eq "-1jkl"

use strict;
$h{xyz}{blah} = 1; ## Can't use string ("-1") as a HASH ref ..