假设我在 Perl 中有一个字符串，我正在尝试匹配并替换为以下内容：
$string =~ s/[^a-zA-Z]$find[^a-zA-Z]/$replace/g;
如图所示，我想替换两侧被非字母字符包围的所有内容。但是，当我替换字符串时，我不想也替换这些字符：它们只是正确匹配所必需的。我怎样才能告诉 Perl 正则表达式避免替换周围的东西$find?
使用perl环视断言 http://perldoc.perl.org/perlre.html#Lookaround-Assertions.
s/(?<=[^a-zA-Z])$find(?=[^a-zA-Z])/$replace/g
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
