Help for this page

Select Code to Download


  1. or download this
    Ref $H: HASH(0x1c19d50)

...
After  CLEAR: %$H - Toy::Hash=HASH(0x1c199a4)    %h -Toy::Hash=HASH(0x
+1c199a4)

Ref $H: HASH(0x1c19d50)
  2. or download this
    package Toy::Hash;

...
%$H=();
print "After  CLEAR: %\$H - ",tied(%$H) . "\t\%h -" . tied(%h). "\n\n"
+;
print "Ref \$H: $H\n";