Mega Code Archive

 

Categories / Perl / Hash

 

Obtain the list of hashKeys and display each key-value pair

%hash = ( Karl  => 1,           Joe   => 3,           Shawn => 0,           Paul  => 2,            Bill  => undef ); @hashKeys = keys( %hash ); for ( $i = 0; $i < @hashKeys; ++$i ) {    print "$hashKeys[ $i ] => $hash{ $hashKeys[ $i ] }\n"; }