散列中的加号是什么意思？

Question

我有以下Perl代码,但我无法理解它的作用.

use constant ANIMAL => 'rabbit'; 
if ($self->{+ANIMAL}) {
    # Do something here
}

+常数之前的符号ANIMAL是什么意思？

Answer 1

来自perldoc constant:

如果在自动引用裸字的上下文中使用常量,则可能会遇到麻烦(对于任何子例程调用都是如此).例如,你不能说$hash{CONSTANT}因为CONSTANT将被解释为一个字符串.使用$hash{CONSTANT()}或$hash{+CONSTANT}防止裸字引用机制被踢入.同样,由于=>操作员立即在其左边引用一个裸字,你必须说CONSTANT() => 'value'(或者只是使用逗号代替大箭头)而不是CONSTANT => 'value'.

Answer 2

在Denis Ibaev的回复基础上,B :: Deparse可以显示如何使用以下代码解析代码+:

perl -MO=Deparse,-p script.pl

用+:

use constant ('ANIMAL', 'rabbit');
if ($$self{+'rabbit'}) {
    ();
}
script.pl syntax OK

没有+:

use constant ('ANIMAL', 'rabbit');
if ($$self{'ANIMAL'}) {
    ();
}
script.pl syntax OK

请注意,+使用constant裸字的位置调用ANIMAL而不使用+.