Perl的检查如果一个标量包含在阵列中

Question

我有一个数组

my @array = qw/FOO BAR BAZ/; 

和从含有数据的文件等

+++123++585+++FOO 

或

+++589++458+++XYZ 

读取标量的元素之一

我正在寻找一种很好的方法来检查数组的一个元素是否与输入字符串的一部分匹配。

我知道我可以循环遍历数组并匹配这种方式，但想知道是否有更像Perl的方式。

Answer 1

您可以建立符合所有@array的正则表达式：

my $regex = join '|', map quotemeta, @array; 
$string =~ $regex; 

Answer 2

是的，有更好的方法。你可以构造正则表达式。它将是固定字符串的替代品，幸运地，它将转换为导致线性搜索时间的trie（Aho-Corasick）。这是最有效的方式。

my @array = qw/FOO BAR BAZ/; 
my $re = join '|', map quotemeta, @array; 
$re = qr/$re/; 

for my $string (@strings) { 
    if ($string =~ $re) { 
    ... 
    } 
} 

Answer 3

这正是grep的用途。这里有一个小片断：

use strict; 
use warnings; 

my $str = "+++123++585+++FOO"; 
my $blank = "+++123++585+++XYZ"; 
my @array = qw/FOO BAR BAZ/; 
print grep {$str =~ $_} @array, "\n"; 
print grep {$blank =~ $_} @array, "\n"; 

这将只返回：

FOO 

grep，reduce和map是我们在FP世界调用高阶函数，尽管reduce可能被称为fold那里。看看MJD的高阶Perl更多这些。

• grep
• map
• reduce
• Higher Order Perl