在 Perl 中打印多键哈希

Question

我有一个像这样索引的 perl 哈希：

my %hash;
$hash{'number'}{'even'} = [24, 44, 38, 36];
$hash{'number'}{'odd'} = [23, 43, 37, 35];

当我尝试像这样打印键名时：

foreach my $key (keys %hash{'number'})
{
   print "Key: $key\n";
}

我收到以下错误：

Type of arg 1 to keys must be hash (not hash slice) at test.pl

但是，当我将数组 ref 传递给函数并在那里打印时，它会打印值：

test(\%hash);

sub test
{
   my ($hash) = @_;
   foreach my $key (keys %{$hash->{'number'}})
   {
       print "Key: $key\n";     #outputs: even odd
   }
}

有人可以告诉我这里出了什么问题吗？另外，如果我有多键散列，在这种情况下，如果我这样做，散列由“数字”和“偶数”或“奇数”索引：

foreach my $key (keys %hash)
{
print "First Key: $key\n";  #Outputs number
}

那么我将始终将“数字”作为正确的输出，而我永远无法将“偶数”、“奇数”作为输出，对吗？这只是为了了解良好的编码习惯:)

这是完整的代码：

sub test
{
    my ($hash) = @_;
    foreach my $key (keys %{$hash->{'number'}})
    {
        print "Key: $key\n";
    }

}

my %hash;
$hash{'number'}{'even'} = [24, 44, 38, 36];
$hash{'number'}{'odd'} = [23, 43, 37, 35];

test(\%hash);

foreach my $key (keys %hash)
{
    print "First Key: $key\n";
}

foreach my $key (keys %hash{'number'})
{
  print "Key: $key\n";
}

谢谢， 新手

Answer 1

my %hash;
$hash{'number'}{'even'} = [24, 44, 38, 36];
$hash{'number'}{'odd'} = [23, 43, 37, 35];

%hash 是一个散列，其键是字符串 ('number')，其值是散列引用。

foreach my $key (keys %hash{'number'})
{
   print "Key: $key\n";
}

要引用属于%hash 的值，您需要编写$hash{'number'}，而不是%hash{'number'}。

但是$hash{'number'} 是一个哈希引用，而不是一个哈希。要引用它所引用的哈希，您可以这样写：

%{$hash{'number'}}

把它们放在一起：

my %hash;
$hash{'number'}{'even'} = [24, 44, 38, 36];
$hash{'number'}{'odd'} = [23, 43, 37, 35];

foreach my $key (keys %{$hash{'number'}}) {
   print "Key: $key\n";
}

将产生这个输出：

Key: even
Key: odd

（可能不是这个顺序）。

Answer 2

你可以这样做：

#!/usr/bin/perl -w
use strict;
use warnings;

my %hash;
$hash{'number'}{'even'} = [24, 44, 38, 36];
$hash{'number'}{'odd'} = [23, 43, 37, 35];

foreach my $i(keys %hash){
    print $i;
    foreach my $j(keys %{$hash{$i}}){
        print "\t".$j."\t";
        print join(" ",@{$hash{'number'}{$j}})."\n";
    }
}