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

| 我正在搜索单词“ 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应该防止您包含其他字符,例如空格或标点符号。     

要回复问题请先登录注册