PERL：使用来自匿名哈希的数据

Question

我正在添加到其他开发人员代码中，我们都是Perl的新手，我正在尝试列出IPS并通过WHOIS运行它。我不确定如何访问匿名哈希中的数据，如何使用它？ 他告诉我数据存储在其中。这是我唯一可以提及哈希的实例：

## Instantiate a reference to an anonymous hash (key value pair)
my $addr = {};

Answer 1

匿名哈希是{} part。它返回一个可以存储在标量变量中的引用，例如在您的示例中：

my $addr = {};

要查看结构，您可以使用 data :: Dumper ：

use Data::Dumper;
print Dumper $addr;

内容：

$VAR1 = {
          'c' => 1,
          'a' => 2
        };

您使用箭头操作员访问哈希键：

print $addr->{"a"}

它可能向您显示类似的 您将如何访问常规哈希，但是介于两者之间的箭头操作员。

您可以通过将sigil放在前面放置参考

%$addr

# compare %addr  %$addr
#          hash   hashref dereferenced

Answer 2

这是一个匿名哈希：

my $anon_hash = {
  key1 => 'Value 1',
  key2 => 'Value 2',
  key3 => 'Value 3',
}

如果要访问单个值：

my $value = $anon_hash->{key1};
say $anon_hash->{key2};

如果要更新单个值：

$anon_hash->{key3} = 'New value 3';

如果要添加新的键/值对：

$anon_hash->{key4} = 'Value 4';

也可以使用所有标准哈希功能（例如 keys（） ）。您只需要“尊重”您的哈希参考 - 这意味着将'％'放在面前。

因此，例如，打印所有密钥/值对：

foreach my $key (keys %$anon_hash) {
  say "$key : $anon_hash->{$_}";
}