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 там. Посмотрите на Perl MJD для более высокого порядка.

• grep
• map
• reduce
• Higher Order Perl