此代码有效:
my $href = shift @_; # get reference to hash
my %h = %{$href}; # dereference hash
这个没有:
my %h = %{shift @_};
以及这一个:
my %h = ${$_[0]}
为什么?
再精确一次:
1 #!/usr/bin/perl -w
2 use strict;
3 use warnings;
4
5 my %h;
6 sub a {
7
8 # that works - result 1
9 my $href = $_[0] || shift;
10 %h = %{$href};
11
12 # that does not work - result 0
13 # my %h = %{$_[0]};
14
15 # as well as that one - result 0
16 # my %h = %{shift @_};
17 $h{1}=2;
18 }
19
20 a(\%h);
21 print scalar (keys %h) . "\n";
换句话说第16行 - 它没有。
答案 0 :(得分:6)
这样可行。
my %h = %{shift @_};
这不会。
my %h = ${$_[0]} # not ${$_[0]}
该sigil应该是%
my %h = %{$_[0]}
,use warnings;
和use strict;
提示: 上述示例不起作用的原因只是一个示例,未声明词法变量%h = %{$href};
不是{{1 }}