Perl字符串替换：匹配但不替换正则表达式的一部分

Question

假设我在Perl中有一个字符串，我想匹配并替换为以下内容：

$string =~ s/[^a-zA-Z]$find[^a-zA-Z]/$replace/g;

因此，如图所示，我要替换两边用非字母字符包围的所有内容。 但是，当我替换字符串时，我也不想替换这些字符：它们只是正确匹配所必需的。 我怎样才能告诉Perl正则表达式避免替换$find周围的东西？

Answer 1

将它们存储为匹配的组，并在替换字符串中引用它们：

$string =~ s/([^a-z])$find([^A-Z])/\1$replace\2/gi;

Answer 2

使用环顾断言 。

s/(?<=[^a-zA-Z])$find(?=[^a-zA-Z])/$replace/g