如何在Perl中打印哈希结构？

Question

例子:

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

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

如何打印哈希？

Answer 1

是否要打印整个哈希值或特定键值对？你期望的结果是什么？如果仅用于调试目的,您可以执行以下操作:

use Data::Dumper;
print Dumper %hash; # or \%hash to encapsulate it as a single hashref entity;

each如果您不关心订购,可以使用该功能:

while ( my($key, $value) = each %hash ) {
    print "$key = $value\n";
}

或者for/ foreachconstruct如果要对它进行排序:

for my $key ( sort keys %hash ) {
    print "$key = $hash{$key}\n";
}

或者,如果您只想要某些值,则可以使用哈希切片,例如:

print "@hash{qw{2009 2010}}\n";

总是有不止一种方法可以做到这一点,虽然它有助于知道你要先做什么油炸:)

Answer 2

使用keys , values功能

@keys = keys %hash ; 

@values = values %hash