我只是在学习 perl。
我正在尝试使用临时变量重写这个多级循环，这样我就不需要以前的键（$key1$key2）来获得对$key3 的访问（取消引用）。这样做最简单的方法是什么。谢谢。
for my $key1 ( keys %foo )
{
for my $key2 ( keys %{$foo{$key1}} )
{
for my $key3 ( keys %{$foo{$key1}{$key2}} )
【问题讨论】：
perllol（Perl Lists of Lists）。
您可以像这样使用while 和each：
while (my ($key1, $inner_hash) = each %foo) {
while (my ($key2, $inner_inner_hash) = each %$inner_hash) {
while (my ($key3, $value) = each %$inner_inner_hash) {
print $value;
}
}
}
这种方法比foreach keys %hash 使用更少的内存，foreach keys %hash 在开始迭代之前会构造哈希中所有键的列表。 each 的缺点是您无法指定排序顺序。详情请见documentation。
【讨论】：
each 使用的内存少于 for 是什么意思。两者都是迭代器，但 for 对哈希并没有真正的用处，除非您将其应用于哈希的 keys 或 values，在这种情况下，它们之间几乎没有选择余地。
for (keys %hash) { ... }首先从散列的键生成一个新数组？我没有想到这一点，但似乎不太可能。我要试验一下。
keys %hash 在您开始迭代之前生成所有键的列表； each %hash 没有。
你正在寻找这样的东西：
for my $key1 ( keys %foo )
{
my $subhash = $foo{$key1};
for my $key2 ( keys %$subhash )
{
my $subsubhash = $subhash->{$key2};
for my $key3 ( keys %$subsubhash )
【讨论】：
这个怎么样：
foreach(values %foo){
foreach(values %$_){
foreach my $key3 (keys %$_){
print $key3;
}
}
}
【讨论】：
我只是在学习 perl。
而且你已经在做参考了。挺好的。
我正在尝试使用临时变量重写这个多级循环，这样我就不需要以前的键 ($key1 $key2) 来获得对 $key3 的访问（取消引用）。这样做最简单的方法是什么。
如果我想我明白你在说什么，你希望能够找到所有第三级哈希键，而无需遍历所有第一级和第二级哈希键。
假设%foo 有键：
$foo{one}->{alpha}->{apple};
$foo{one}->{alpha}->{berry};
$foo{one}->{beta}->{cucumber};
$foo{one}->{beta}->{durian};
$foo{two}->{uno}->{eggplant};
$foo{two}->{uno}->{fig};
$foo{two}->{dos}->{guava};
$foo{two}->{dos}->{honeydew};
顺便说一句，我喜欢-> 语法只是因为它提醒我我正在处理对某些东西的引用而不是实际的哈希。它可以帮助我更清楚地看到问题。
您想通过蔬菜和水果名称的键而不通过前两个级别。对吗？
这里的-> 语法有助于澄清答案。这八个键属于四个独立的哈希：
$foo{one}->{alpha};
$foo{one}->{beta};
$foo{two}->{uno};
$foo{two}->{dos};
而且，它们所在的散列是匿名的，也就是说没有包含这些散列的变量名。我可以访问这些哈希的唯一方法是找到包含它们的四个哈希。
但是，这四个键本身存储在两个单独的哈希中。我需要找到这两个哈希来找到它们的键。同样，这两个哈希是匿名的。同样，我能找到它们的唯一方法是知道包含它们的两个哈希：
$foo{one};
$foo{two};
所以，为了找到我的第三级值，我需要知道包含它们的第二级哈希。为了找到那些第二个哈希，我需要找到包含它们的第一级键。
但是，如果您有某种已知的结构，您可能已经知道查找所需值所需的键。
想象一下这样的事情：
$person{$ssn}->{NAME}->{FIRST} = "Bob";
$person{$ssn}->{NAME}->{MI} = "Q.";
$person{$ssn}->{NAME}->{LAST} = "Smith";
这里我可以直接遍历到每个人的第一个、最后一个和中间的首字母。我所要做的就是查看各种社会安全号码：
for my $ssn ( sort keys %person ) {
say "My name is " . $person{$ssn}->{NAME}->{FIRST}
. " " . $person{$ssn}->{NAME}->{MI}
. " " . $person{$ssn}->{NAME}->{LAST};
}
【讨论】：