是否有任何直接的方法在Perl数组上应用逻辑运算符？

Question

我正在寻找这样的东西:( OR我假设的内置函数在哪里)

码:

@x=(1, 0, 1, 1, 1);
$a=OR(@x);
print $a;

预期结果:

1

这可能与Perl有关吗？

Answer 1

List :: Util怎么样减少

use List::Util qw(reduce);
my $foo = reduce { $a or $b } (1,0);
say $foo;