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