Reference for hash : Hash Reference « Hash « Perl






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";

   
    
    
  








Related examples in the same category

1.Using references to a hash.
2.Hash References
3.Dereferencing hash
4.Anonymous Hash References
5.Get hash value by using the hash reference
6.Get key value pair through hash reference
7.Hard References-Pointers
8.Using -> opertor with hash reference variable
9.Using each function with hash reference
10.Using keys function with hash reference variable