Perl中哈希表的引用和解引用

Question

请看下面这段简单的代码：

考虑以下简单的代码：

%hash = ('a'=>1,'b'=>2); 
print $hash{'b'};
print "\n",(\%hash)->{'b'};   #used when hashes are passed by reference
                              #to subroutines

预期输出是一对2。但我在想，$hash{key}是否是(\%hash)->{key}的引用和解引用的速记方式，还是另一种完全不同的方法来达到相同的结果。

请给出一些澄清。

- CuriousSid

Answer 1

它们有些不同，因为与许多其他语言不同，所有复杂类型仅作为引用可用，Perl具有实际的普通哈希类型和单独的引用类型，可以充当任何其他类型的代理。您可以在perlguts中找到有关此的详细信息。

最后，这两个示例都从相同的存储中提取数据，但第二个调用稍微长一些，因为它花费时间忠实地创建对普通HV的引用，然后将其解除引用，就像您要求的那样。您可以使用B::Concise模块研究底层发生了什么。

%hash = ('a'=>1,'b'=>2);
print $hash{'b'};
print (\%hash)->{'b'};

简洁输出：

$ perl -MO=Concise deref.pl 
t  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 deref.pl:1) v:{ ->3
b     <2> aassign[t3] vKS ->c
-        <1> ex-list lKP ->8
3           <0> pushmark s ->4
4           <$> const[PV "a"] s ->5
5           <$> const[IV 1] s ->6
6           <$> const[PV "b"] s ->7
7           <$> const[IV 2] s ->8
-        <1> ex-list lK ->b
8           <0> pushmark s ->9
a           <1> rv2hv[t2] lKRM*/1 ->b
9              <#> gv[*hash] s ->a
c     <;> nextstate(main 1 deref.pl:2) v:{ ->d
i     <@> print vK ->j
d        <0> pushmark s ->e
h        <2> helem sK/2 ->i
f           <1> rv2hv sKR/1 ->g
e              <#> gv[*hash] s ->f
g           <$> const[PV "b"] s ->h
j     <;> nextstate(main 1 deref.pl:3) v:{ ->k
s     <2> helem vK/2 ->t
q        <1> rv2hv[t7] sKR/1 ->r
p           <@> print sK ->q
k              <0> pushmark s ->l
o              <1> refgen lK/1 ->p
-                 <1> ex-list lKRM ->o
l                    <0> pushmark sRM ->m
n                    <1> rv2hv[t6] lKRM/1 ->o
m                       <#> gv[*hash] s ->n
r        <$> const[PV "b"] s ->s
deref.pl syntax OK

- Oleg V. Volkov

Answer 2

不，$hash{key}只是以与$array[0]相同的方式简单访问%hash。但\%hash是%hash的引用，因此需要解引用才能访问它。 语法(\%hash)-> {key}将简写为：

do { my $temp_ref = \%hash; $temp_ref->{key} } 

但是如果您已经有了%hash，$hash{key}可以很好地工作，而不需要无用的引用/解引用。哈希和数组（通常）通过引用传递给子例程，因为Perl的列表展开使得传递多个参数变得困难。（一个常见的例外是实现命名参数的函数。）

有关Perl中引用的完整说明，请参见perldoc perreftut和perldoc perlref。

- jeremy

Answer 3

在 Perl 5 中，sigil（$ % @）的变化是因为它反映了所访问的值。

my @a = (10, 20, 30);  # Whole array
print $a[1];           # Single scalar element of @a
my %h = (a=>1, b=>2);  # Whole hash
print $h{a};           # Single scalar value from %h

引用变量名都以"$"开头的原因是它们都是标量。这有帮助吗？

- Richard Huxton