例子：
%hash = (2010 => 21,2009=> 9);
$hash = {
a => {
0 => {test => 1},1 => {test => 2},2 => {test => 3},3 => {test => 4},},};
如何打印哈希？
解决方法
是否要打印整个哈希值或特定键值对？你期望的结果是什么？如果仅用于调试目的,您可以执行以下操作：
use Data::Dumper; print Dumper %hash; # or \%hash to encapsulate it as a single hashref entity;
如果您不关心订购,可以使用每个功能：
while ( my($key,$value) = each %hash ) {
print "$key = $value\n";
}
或者如果要对它进行排序,请使用for / foreach构造：
for my $key ( sort keys %hash ) {
print "$key = $hash{$key}\n";
}
或者,如果您只想要某些值,则可以使用哈希切片,例如：
print "@hash{qw{2009 2010}}\n";
总是有不止一种方法可以做到这一点,虽然它有助于知道你要先做什么油炸:)