如何将一个布尔条件结果赋给perl中的标量变量？

Question

我正在执行以下操作，但它无法正常工作：

    my $enabled = $hash && 
                  $hash->{'key'} && 
                  $hash->{'key'}->{'enabled'} && 
                  $hash->{'key'}->{'active'};

这是一种为标量变量赋值的可接受方法吗？ 我的代码以奇怪的方式行为不端，因为它是，我相信这是因为这个任务。我已经验证了所有这些键都存在各个值，并设置为值。

P.S。抱歉是个菜鸟！我用谷歌搜索约10分钟，无法在任何地方找到答案。

Answer 1

Perl布尔运算符如&&，||，and，or不返回布尔值，它们返回其中一个参数的值： / p>

say 2 && 3;

输出3。

您可以使用双重否定技巧将其强制为布尔值：

say !!(2 && 3);
# or
say not not 2 && 3;

输出1。