regex - 将字符串与单词列表匹配

Question

假设我有字符串“i zipped the fezz and it blipped like a baa”并且我有一组单词(moo、baa、zip、fjezz、blaa)，我想测试它们是否包含在内在字符串中，有没有一种方法可以不使用 |在正则表达式中还是遍历每个单词？

TIA

Answer 1

如果您使用的是 Perl 5.10，则可以使用 smart match运算符(operator):

my @words = qw/moo bar zip fjezz blaa/;
if ( @words ~~ $str ) { 
    # it's there
}

以上将进行相等性检查(相当于 grep $_ eq $str, @words)。如果你想要正则表达式匹配，你可以使用

if ( @words ~~ /$str/ )

否则，您将无法使用来自 List::Util 的 grep 或 first :

if ( grep { $str =~ /$_/ } @words ) { 
    ...
}