正则表达式使后缀与英语单词匹配

如何解决正则表达式使后缀与英语单词匹配

| 我正在搜索单词“ move”，并且在打印时也要匹配“ moved”。 我要这样做的方式是：

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 to_PREP ....）。

$search_keyd

将是

$search_key.\"d\"

的地方，它起作用了！ 一个不错的补充是检查单词是否以e结尾，因此仅需附加d。我猜它看起来像这样：

e?$/d$

即使是一般性的回答也足够了。 我是Perl的新手。很抱歉，如果这是基本的。提前致谢！！！     

解决方法

如果我对您的理解正确，则您要搜索

\"move\"

并添加一个突出显示，还要包括基本单词的任何变体，例如

\"moves\" \"moved\"

。 当要在这样的文本中替换单词时，通常需要替换所有单词，然后需要在正则表达式上使用

/g

运算符，如下所示：

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

另外，您应确保不匹配单词的部分。例如。您想匹配

\"move\"

，但可能不匹配

\"remove\"

。为此，您可以使用ѭ10来标记单词边界：

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

为了匹配某些后缀，您需要具有有效字符或字符组合的字符类。

move[sd]

将找到

\"moves\"

和

\"moved\"

。但是，对于像

\"jump\"

这样的单词，您需要更加具体：specific16ѭ。注意ѭ17可以用ѭ18代替。因此，除非您的文字中有任何错误的拼写，否则您可以摆脱：

$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

如果要更具体地使用后缀，即使其不与诸如match22ѭ之类的拼写错误的单词匹配，则需要进行一些特殊的匹配。就像是：

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

添加更多的搜索词可能会变得非常复杂。 有关正则表达式的一些帮助     ,如果您想要匹配以搜索词开头的所有完整单词，即\'move \'匹配\'move \'，\'moved \'，\'movers \'等，那么您想使用字符类来检测单词的结尾。 因此，代替：

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

尝试使用：

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

\\ w *将匹配任意数量的标准单词字符，并且\\ W应该防止您包含其他字符，例如空格或标点符号。