Select Code to Download

P:\test>perl
sub TIEHASH { return bless {}, 'main'; } 
...
print %h = ( 1,1,1,1);
^Z
1111

P:\test>perl -we"print map 1, %h = (1,1,1,1);"
Name "main::h" used only once: possible typo at -e line 1.
...
c                    <1> rv2hv[t2] lKRM*/1 ->d
b                       <#> gv s ->c
-e syntax OK

P:\test>perl -we"print %h = (1,1,1,1);"
Name "main::h" used only once: possible typo at -e line 1.
...
b              <1> rv2hv[t2] lKRM*/1 ->c
a                 <#> gv s ->b
-e syntax OK