打印在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 

然而，当我传递数组引用到一个函数，并打印在那里，它打印的值：

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"; 
    } 
}