使用散列訪問哈希

Question

我有散列使用哈希。

我想只迭代'0'的值。

$VAR1 = { 
    '1' => { 
    '192.168.1.1' => '192.168.1.38' 
    }, 
    '0' => { 
    '192.168.32.6' => '192.168.32.43' 
    } 
}; 

我可以訪問它的唯一方法是通過創建兩個foreach my $key (keys(%myhash))循環：

我可以使用：

foreach my $key (keys(%myhash{0})) ## does not work 

，或者直接以某種方式訪問​​這些值？

感謝

Answer 1

首先，如果你使用的是連續的整數作爲鍵的哈希那麼很可能，你應該使用數組來代替。

對應於key 0散列的值是$dhcpoffers{0}，因爲它是一個標量值。 %dhcpoffers{0}只是一個語法錯誤。

你需要

for my $key (keys %{ $dhcpoffers{0} }) { ... } 

，或者，如果你喜歡

my $offer_0 = $dhcpoffers{0}; 
for my $key (keys %$offer_0) { ... } 

因爲Perl 5的14版，keys將接受一個哈希參考，所以你可以寫多少清潔劑

for my $key (keys $dhcpoffers{0}) { ... }