如果 Perl 中至少有一个数组元素 [重复]

Question

也许我的问题真的很简单，但我想知道最好的方法和最有效的方法。

让我们有一个字符串数组，我们想将它与另一个字符串进行比较。 说，

my @array = {"hi","bye","you","shadow", "hi"}

现在我想检查数组的至少一个元素是否等于hi，那么存在一些条件。 我可以知道你的想法。我知道在for 循环中可以轻松完成，但您会建议一个好的循环吗？

Answer 1

类似

my @array = qw (hi bye you shadow hi);
my $hi_count = scalar(grep {$_ eq 'hi'} @array);
print $hi_count;

这将打印2，因为有两个单词等于hi。