散列解引用的Perl散列

我只是在学习perl

我正在尝试使用临时变量重写此多级循环，这样我就不需要以前的键（

$key1

$key2

）来访问（取消引用）

$key3

。最简单的方法是什么。谢谢

for my $key1 ( keys %foo )
{
    for my $key2 ( keys %{$foo{$key1}} )
    {
        for my $key3 ( keys %{$foo{$key1}{$key2}} )

---

您正在寻找这样的东西：

for my $key1 ( keys %foo )
{
    my $subhash = $foo{$key1};
    for my $key2 ( keys %$subhash )
    {
        my $subsubhash = $subhash->{$key2};
        for my $key3 ( keys %$subsubhash )

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

$person{$ssn}->{NAME}->{FIRST} = "Bob";
$person{$ssn}->{NAME}->{MI}    = "Q.";
$person{$ssn}->{NAME}->{LAST}  = "Smith";

---

您可以像这样使用

while

和

每个
：

for my $key1 ( keys %foo )
{
    my $subhash = $foo{$key1};
    for my $key2 ( keys %$subhash )
    {
        my $subsubhash = $subhash->{$key2};
        for my $key3 ( keys %$subsubhash )

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

$person{$ssn}->{NAME}->{FIRST} = "Bob";
$person{$ssn}->{NAME}->{MI}    = "Q.";
$person{$ssn}->{NAME}->{LAST}  = "Smith";

这种方法使用的内存少于
foreach keys%hash
，它在开始迭代之前构建了散列中所有键的列表。
每个
的缺点是无法指定排序顺序。有关详细信息，请参见。
这个怎么样：

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

所以，为了找到我的第三级值，我需要知道包含它们的第二级散列。为了找到第二个散列，我需要找到包含它们的第一级键

但是，如果您有某种已知的结构，那么您可能已经知道了查找所需值所需的键

想象一下这样的情景：

for my $key1 ( keys %foo )
{
    my $subhash = $foo{$key1};
    for my $key2 ( keys %$subhash )
    {
        my $subsubhash = $subhash->{$key2};
        for my $key3 ( keys %$subsubhash )

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

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

如果你的数据结构变得太复杂，你可以考虑。如果你正在学习Perl和数据结构，一个必须读取的是后面的。它谈到了你的情况和其他事情。对于数组数组，请查看命名有趣的（Perl列表）。我不清楚您所说的
每个
使用的内存少于
For
的
是什么意思。这两个都是迭代器，但是
for
在散列上没有真正的用处，除非你将它应用到散列的
键
或
值
，在这种情况下，它们之间几乎没有选择余地。啊，你是否认为
for（keys%hash）{…}
首先从散列的键生成一个新数组？我没有想到这一点，但似乎不太可能。“我要去做实验了。”博罗丁说，“是的，我应该更清楚一点
keys%hash
在开始迭代之前生成所有键的列表<代码>每个%hash
都没有。