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

Question

我正在执行以下操作,但它无法正常工作:

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

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

PS抱歉是个菜鸟!我用Google搜索约10分钟,无法在任何地方找到答案.

Answer 1

Perl的布尔运算符一样&&,||,and,or不返回布尔值,他们返回他们的论据之一的值:

say 2 && 3;

输出3.

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

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

输出1.