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