Perl检查标量是否包含数组中的一个元素
我有一个数组Perl检查标量是否包含数组中的一个元素,perl,Perl,我有一个数组 my @array = qw/FOO BAR BAZ/; 以及从包含以下数据的文件中读取的标量 +++123++585+++FOO 或 +++589++458+++XYZ 我正在寻找一种很好的方法来检查数组的元素是否匹配输入字符串的一部分 我知道我可以在数组上循环并以这种方式匹配，但我想知道是否有一种更像perl的方式。您可以创建一个匹配所有@array的正则表达式： my $regex = join '|', map quotemeta, @array; $string =
my @array = qw/FOO BAR BAZ/;
+++123++585+++FOO
+++589++458+++XYZ
我知道我可以在数组上循环并以这种方式匹配，但我想知道是否有一种更像perl的方式。您可以创建一个匹配所有@array的正则表达式：
my $regex = join '|', map quotemeta, @array;
$string =~ $regex;
您可以创建与所有@array匹配的正则表达式：
my $regex = join '|', map quotemeta, @array;
$string =~ $regex;
是的，有更好的办法。您可以构造正则表达式。它将是固定字符串的替代品，幸运的是将其转换为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) {
...
}
}
是的，有更好的办法。您可以构造正则表达式。它将是固定字符串的替代品，幸运的是将其转换为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) {
...
}
}
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
grepreducemapreducefold- 这正是我们的目的。下面是一个小片段：
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
grepreducemapreducefolddo{if（$str=~m/$\u/）{print“yes！”；print；print“\n”}对于@arraydo{if（$str=~m/$\u/）{print“yes！”；print；print“\n”}}对于@arraygrepmapreducegrepmapreducegrepmapreducegrepmapreduce