8

这是我发现的一个微妙之处keys()。 

$ perl -e 'use warnings; use strict; my $d = { "ab" => 1 }; my @e = keys(%{$d->{cd}});'

$ perl -e 'use warnings; use strict; my $d = { "ab" => 1 }; my %e = %{$d->{cd}};'
Can't use an undefined value as a HASH reference at -e line 1.

我最困惑的是为什么第一个片段不会给出取消引用错误。当我使用Data::Dumper时，很明显在第一个片段中，$d->{cd}, 被自动激活为{}。

为什么keys需要自动激活？我尝试阅读perldoc它，找不到令人满意的答案。keys没有设置别名（$_等），所以 perl 不需要认为$d->{cd}需要在左值上下文中，是吗？（我了解表达式是否需要在左值上下文中自动激活发生，如here所述。

一个相关的帖子。

4

2 回答 2

4

请注意，键确实可以是左值（设置散列的预期元素数量）。

但是即使键本身没有在左值上下文中使用，它也会产生重置哈希迭代器的副作用。

所以它确实修改了散列，因此为取消引用提供了一个左值上下文，这使得它自动激活。

于 2016-01-27T07:30:51.343 回答
0

经过一番研究和四处询问，我发现这与$d->{cd}传递给子程序的事实有关，而不是事实keys。例如，

% perl -e 'use warnings; use strict; my $d = { "ab" => 1 }; sub foo {}; my @e = foo(%{$d->{cd}});'

这也会自动激活；这是因为 perl 内部需要能够为函数参数设置别名。

在内部foo()，我们有一个别名集$_[0] = $d->{cd}，但这意味着$d->{cd}需要是左值的，因为 perl 中的子例程假设您可以执行类似$_[0] = "123";的操作，因此需要进行自动激活。

于 2016-01-27T18:21:58.547 回答