散列解除引用的Perl Hash

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 ，后者在開始迭代之前構造foreach keys %hash中所有鍵的列表。 each方法的缺點是您無法指定排序順序。 有關詳細信息，請參閱文檔

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