Perl的"not"运算符没有使用defined()函数按预期工作

Question

以下代码段未按预期工作:

$k{"foo"}=1;
$k{"bar"}=2; 
if(not defined($k{"foo"}) && not defined($k{"bar"})){
    print "Not defined\n";
}
else{
    print "Defined"
}

由于$ k {"foo"}和$ k {"bar"}都已定义,因此预期输出为"已定义".但是,运行代码会返回"未定义".

现在,玩弄代码我意识到在每个not defined()调用周围放置括号会产生所需的结果:

if((not defined($k{"foo"})) && (not defined($k{"bar"}))){print "Not Defined"}

我想这与运算符优先级有关,但有人可以解释究竟发生了什么吗？

Answer 1

优先问题.

not defined($k{"foo"}) && not defined($k{"bar"})

手段

not ( defined($k{"foo"}) && not defined($k{"bar"}) )

这是等价的

!defined($k{"foo"}) || defined($k{"bar"})

当你真正想要的时候

!defined($k{"foo"}) && !defined($k{"bar"})

解决方案:

• !defined($k{"foo"}) && !defined($k{"bar"})
• not defined($k{"foo"}) and not defined($k{"bar"})
• (not defined($k{"foo"})) && (not defined($k{"bar"}))

PS - 该语言被命名为"Perl",而不是"PERL".