perl检查一行包含列表中一个数组的单词

Question

我有一个包含几个单词的文件,让我们以此文件为例:

balloon
space
monkey
fruit

我想检查字符串是否包含至少一个这样的单词.我将所有单词存储在数组中,如下所示(文件在参数中指定):

open my $exampleFile, '<', $ARGV[0];
chomp(my @exampleWords= <$exampleFile>);
close $exampleFile;

然后我用它grep来检查这些单词中是否有一个在字符串中:

if ( grep( $string, @exampleWords ) ) 
{
    #do something
}   

如果我以字符串为例this_is_a_balloon_example,balloon已经找到了这个单词,所以我应该进入循环.目前,似乎为任何给定的字符串输入循环.

Answer 1

grep迭代一个列表.结果可能是相当低效的.

我建议你想要做的是编译一个正则表达式.

my $regex = join "|", @examplewords; 
$regex    = qr/\b($regex)\b/; 

if ( $string =~ m/$regex/ ) { 
    print "There was a match on $1\n";
}

Answer 2

你grep正在检查真正的价值,而且$string几乎总是"真实的".你需要的是正则表达式,它测试是否$string匹配$_,

if ( grep($string =~ /$_/, @exampleWords ) ) 
{
    #do something
}