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

| 我正在搜索单词“ 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的新手。很抱歉，如果这是基本的。提前致谢！！！

已邀请:

2 个回复

糖固傻染

如果我对您的理解正确，则您要搜索\"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应该防止您包含其他字符，例如空格或标点符号。

要回复问题请先登录或注册

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

2 个回复

发起人

regex

perl

问题状态

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

与内容相关的链接

2 个回复

发起人

regex

perl

问题状态