如何在Perl的s{...}{EXPR}e的EXPR中嵌入s/\A{/LB/？

问题重现 #

我已经阅读了man perlop中的“Quote and Quote-like Operators”章节，但碰到了一个棘手的问题：在Perl的s/.../EXPR/e替换语法里，当EXPR中的替换代码同时用到\A锚定和外层替换的分隔符时，会出现解析错误。

测试代码：

perl -E 'say "{foo}" =~ s{.+}{local $_=$&;; s/\{/LB/;$_ }er;'

这段代码能正常运行，输出LBfoo}。但当我尝试给内层正则加上\A锚定时：

perl -E 'say "{foo}" =~ s{.+}{local $_=$&;; s/\A\{/LB/;$_ }er;'

直接报错：Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/\A{ <-- HERE /。我试过加额外反斜杠，要么报“Substitution replacement not terminated”，要么编译通过但匹配失败，输出原字符串{foo}。

问题根源 #

这是Perl双层解析导致的转义混乱：

• 外层替换用了大括号{}作为分隔符，而内层s///里的\A\{会先被外层的双引号语境解析一次。
• 外层解析时，\{会被转义成普通的{，所以传到内层正则里就变成了m/\A{/——这里的{没有被转义，Perl会把它当成量词语法的开头（比如{2,3}这种），但后面没有合法的数字，自然就报错了。

解决办法 #

有两种简单可靠的处理方式：

1. 给内层大括号加双重转义 #

因为外层会吃掉一层反斜杠，所以需要用两个反斜杠来确保内层正则能拿到转义后的{：

perl -E 'say "{foo}" =~ s{.+}{local $_=$&;; s/\A\\{/LB/;$_ }er;'

外层解析后，\\{会变成\{，内层正则就能正确识别这个转义的大括号，匹配字符串开头的{并替换成LB，最终输出LBfoo}。

2. 内层替换改用不同分隔符 #

直接避免内外层分隔符冲突，比如把内层s///的分隔符换成#或者|：

perl -E 'say "{foo}" =~ s{.+}{local $_=$&;; s#\A\{#LB#;$_ }er;'

这样内层的大括号不再是分隔符的一部分，外层不会对它进行额外解析，不需要额外转义就能正常工作，同样能输出LBfoo}。

额外提示 #

• 当使用/e修饰符时，替换部分会被当作Perl代码执行，属于双引号语境，会先做一次变量插值和转义解析，再执行代码——这是和普通替换最关键的区别，也是容易踩坑的地方。
• 嵌套替换时，尽量让内外层用不同的分隔符，能大幅减少转义的复杂度，避免这类莫名其妙的解析错误。

内容的提问来源于stack exchange，提问作者jimav