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

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

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

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

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

解决方法

Perl布尔运算符如&&,||和,或者不返回布尔值,它们返回其参数之一的值：

say 2 && 3;

输出3.

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

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

输出1.