Perl 访问值来自 Hash 参考

Question

在我的 Perl 代码中，我最终得到了一个 hash 参考，如下所示。 我想从中访问单个元素。 我尝试了多种方法，但我无法获取它。

#!/usr/bin/perl
#use strict;
use Data::Dumper;
my %h={'one'=>1,'two'=>2};
print Dumper($h{'one'});

Output

$VAR1 = undef;

Answer 1

使用括号来构造您的 hash，而不是大括号：

use strict;
use warnings;
use Data::Dumper;

my %h = ('one'=>1, 'two'=>2);
print Dumper($h{'one'});

大括号用于构造 hash 参考。

另外，添加use warnings; ，这将生成一条消息，表明您的代码存在问题。

---

或者，如果你真的想要一个 hashref：

my $h = {'one'=>1, 'two'=>2};
print "$h->{one}\n";

Answer 2

您（意外）在那里所做的是创建一个 hash ，其键是字符串化的 hash 引用和值undef 。 perldoc perlref有一个名为WARNING: Don't use references as hash keys的部分。