arrays - 在perl中搜索未排序的数组？

Question

我有一个数组...假设有 100 个元素。我想检查是否有任何元素与特定字符串匹配。例如:

@array = ('红','白','蓝');

我还想知道数组是否包含字符串“white”作为元素之一。我知道如何使用 foreach 循环并比较每个元素，但是...有没有比循环整个数组更简单(更快)的方法？

-谢谢

Answer 1

Perl 5.10 及更高版本，smart match :

say 'found' if 'white' ~~ @array;

对于 5.10 之前的版本，List::MoreUtils :

use List::MoreUtils qw{any}; 
print "found" if any { 'white' eq $_ } @array;

这些短路 - 如果找到匹配项，则无需遍历整个数组。