Perl-正则表达式将单引号字符替换为单引号字符

Question

例如替换

America 's with America's
Can' t with Can't

$str =~s/' \\w/'\\w/g; 显然不起作用

Answer 1

test.pl的内容：

$foo = "blah America 's blah Can' t blah";

$foo =~ s/(?<=\w) ?' ?(?=\w)/'/g;

print $foo, "\n";

运行“ perl test.pl”发出

blah America's blah Can't blah

请注意，这非常严格地针对您似乎要描述的用例。 如果您想要稍微不同的行为（例如，在撇号周围留出更多/不同的空格），则可以从此起点进行更改。

正则表达式中出现的内容如下（为了便于阅读，下面的空格显示为下划线）：

• （？<= \\ w）：对单个单词类字符（\\ w）的零宽度正向后断言
• _？ ：零个或一个空格字符
• '：一个单引号字符
• _？ ：零个或一个空格字符
• （？= \\ w）：对单个单词类字符（\\ w）的零宽度正向超前断言

环视断言（向前看，向后看，以“阳性”和“阴性”形式出现）是有趣且有用的事情。 您可以在“扩展”文档 /“环顾四周断言”下的“ perlre”文档中阅读有关它们的更多信息。

Answer 2

最简单的方法是只检测(\\s'|'\\s) 。 这与\\s'或'\\s匹配。

您可能要考虑在\\s加上+修饰符，以匹配多个，以防某人的America带有两个或多个空格。