在Perl中，如何将一个字符串与其他字符串列表进行匹配？

这恰好grep是为了：

my $element_exists = 
   grep { $columns[2] eq $_ } qw(string1 string2 ... stringN);

一种替代方法是使用first，一旦找到匹配项，它将停止处理。这样，如果您的第一个字符串匹配$columns[2]，则不必比较其余的n-1个字符串：

use List::Util qw/first/;

my $element_exists = 
   defined first { $columns[2] eq $_ } qw(string1 string2 ... stringN);

您也可以any为此目的（如下面的@ThisSuitIsBlackNot建议），略有不同的是，首先返回与条件匹配的元素的值，任何返回布尔值：

use List::Util qw/any/;

my $element_exists = 
   any { $columns[2] eq $_ } qw(string1 string2 ... stringN);