Mega Code Archive

 

Categories / Perl / Hash

 

Reference for hash

#!/bin/perl @toys = qw( A B C ); $num = @toys; %games=("A"  => "a",         "B"  => "B",         "C" =>  "C",        ); $ref1 = \$num;  $ref2 = \@toys; $ref3 = \%games; print "$$ref1.\n"; # dereference pointers print "",join(",",@$ref2), ".\n"; print "$ref2->[0].\n"; print "$ref2->[2].\n"; while(($key,$value)=each(%$ref3)){    print "$key => $value\n"; } print "$ref3->{'C'}\n";