How do I print a hash structure in Perl?

Question

Examples:

%hash = (2010 => 21, 2009=> 9);

$hash = {
    a => {
        0 => {test => 1},
        1 => {test => 2},
        2 => {test => 3},
        3 => {test => 4},
    },
};

How do I print the hash?

Answer 1

you can try with this,

while(my ($key,$val)=each %HASH){
print $key," = ",$val,"\n";
while(my ($kkey,$vval)=each %{$HASH{$key}}){
print "   ",$kkey," = ",$vval,"\n";
}
}

Answer 2

use keys , values function

@keys = keys %hash ; 

@values = values %hash 

Answer 3

This should help:

foreach $key (keys %hash)
{
  print "key is : $key, value is : $hash{$key}\n";
}

cheers