regex - 使用数组中的元素快速搜索文件的 Perl 习惯用法

Question

在字符串或整个文件中搜索数组元素出现的 Perl 习语是什么？例如:

my @array = qw(word, test, ...);
my $string = ".......";

我要搜索word或test(也可以是words、tester等)在 $string 中并返回找到的任何内容(即组匹配)。

我搜索了文档，似乎 map + grep 是我需要的，但我就是想不出它的代码。 Perl 是如此有趣，以至于我有时完全无能为力。 :)

使用 map 中的一个示例:

my @squares = map { $_ * $_ } grep { $_ > 5 } @numbers;

我想我可以将字符串拆分为数组和 grep。我说得对吗？

grep { @array } @string;  # something like grep {/(word|test)/} @string but I want to use array

Answer 1

my @word_roots = qw( word test );

my $pat = join '|', map quotemeta, @word_roots;
my $re = qr/\b(?:$pat)\w+\b/;

my @matches = $string =~ /($re)/g;