Mega Code Archive

 

Categories / Perl / Hash

 

Using keys function with hash reference variable

#!/usr/bin/perl use strict; use warnings; my %hash = ( A => "AA",              B => "BB",              C => "CC",              D => "DD",              E => "EE" ); my $hashReference = \%hash; foreach ( keys( %$hashReference ) ) {    print( "The $_ goes $hashReference->{ $_ }.\n" ); }