正则表达式匹配后缀到英文单词

Question

我正在搜索单词“移动”，并且我想匹配“移动”以及打印时。

我要对这个办法是：

if ($sentence =~ /($search_key)d$/i) { 
    $search_key = $search_keyd; 
} 
$subsentences[$i] =~ s/$search_key/ **$search_key** /i;       
$subsentences[$i] =~ s/\b$parsewords[1]_\w+/ --$parsewords[1]--/i;       
print "MATCH #$count\n",split(/_\S+/,$subsentences[$i]), "\n"; 
$count++; 

这是一个较长的代码的一部分，所以如果有不清楚的地方，让我知道。 _是因为句子中的单词被标记（例如，I_NN move_VB到_PEP ....）。

其中$search_keyd将$search_key."d"，它的工作！

一个很好的补充是检查单词是否以e结尾，因此只需要添加一个d。我猜想它看起来像这样：e?$/d$

即使一般的答案就足够了。

我是新来的Perl。所以很抱歉，如果这是基本的。提前致谢！！！

Answer 1

如果我理解正确，您想要搜索"move"并添加高亮显示，但也包括基本单词的任何变体，例如"moves" "moved"。

当你在这样的文本替换的话，通常要更换所有的话，那么你需要的/g操作上的正则表达式，像这样：

$subsentences[$i] =~ s/$search_key/ **$search_key** /ig 

而且，你应该确保不匹配单词的部分。例如。你想匹配"move"，但不是"remove"。对于这一点，你可以用\b标记字boundry：

$subsentences[$i] =~ s/\b$search_key/ **$search_key** /ig 

为了符合特定的后缀，则需要使用有效的字符或字符组合字符类。 move[sd]将会找到"moves"和"moved"。但是，对于像"jump"这样的词，您需要更具体一些："jump(s|ed)"。请注意，[sd]可以替换为(s|d)。所以，除非你的任何文字拼写错误，你可以逃脱：

$subsentences[$i] =~ s/\b$search_key(s|d|ed)/ **$search_key$1** /ig 

注意$1比赛无论是第一个匹配的括号内发现。

要找到匹配词的数量：

my $matches = $subsentences[$i] =~ s/\b$search_key(s|d|ed)/ **$search_key$1** /ig 

如果您想更具体的与后缀，即使其不匹配像"moveed"拼写错误的话，你需要做一些特殊的匹配。例如：

if ($search_key =~ /e$/i) { $suffix = '(s|d)' } 
else { $suffix = '(s|ed)' } 
my $matches = $subsentences[$i] =~ s/\b$search_key$suffix/ **$search_key$1** /ig 

它可能会变得非常复杂，您可以添加更多的搜索词。

有关正则表达式的一些帮助here

Answer 2

如果你想要匹配所有以你的搜索词开始的完整单词，即'move'匹配'move'，'moved'，'movers'等，那么你想用一个字符类来检测这个词的结尾。

因此，而不是：

if ($sentence =~ /($search_key)d$/i) 

尝试使用：

if ($sentence =~ /($search_key\w*)\W$/i) 

的\ W *将匹配任何数量的标准的文字字符，\ W应该阻止您包括其他字符，如空格或标点符号。