如果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。