perl - 使用哈希访问哈希

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

首先，如果您使用连续整数作为散列的键，那么您很可能应该使用数组。

键值0对应的hash值是 $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}) { ... }