Question

我只是在学习perl。

我正在尝试使用临时变量重写此多级循环，这样我就不需要先前的键（$key1 $key2）来获取$key3的访问权限（取消引用）。这样做最简单的方法是什么。感谢。

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

Answer 1

您可以像这样使用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，后者在开始迭代之前构造哈希中所有键的列表。 each的缺点是您无法指定排序顺序。有关详细信息，请参阅documentation。

Answer 2

你正在寻找这样的东西：

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

Answer 3

这个怎么样：

foreach(values %foo){
  foreach(values %$_){
    foreach my $key3 (keys %$_){
      print $key3;
    }
  }
}

Answer 4

我只是在学习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};
}

散列解除引用的Perl Hash

4 个答案: