arrays - 有没有直接的方法在 Perl 数组上应用逻辑运算符？

Question

我正在寻找这样的东西：（OR我假设的内置函数在哪里）

代码：

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

预期结果：

1

Perl 有可能吗？

Answer 1

List::Util reduce怎么样

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

Answer 2

sub OR {
    foreach (@_) {
        return 1 if $_;
    }
    return 0;
}

尽管避免使用全大写标识符是个好主意。

Answer 3

sub any { $_ && return 1 for @_; 0 }

取自：List::Util的建议添加 部分。

此外，该all部分的函数将对应于 AND 运算符，依此类推。

Answer 4

你可以很容易地制作这个函数：

sub OR { 
   my ($first, @rest) = @_; 

   for (@rest) {
      $first ||= $_;
   }

   return $first; # True(1) or False(0)
}

注意：这会评估整个列表，实际上您可以停在第一个为 true 的值上。