为何Perl单引号字符串在split函数中会发生变量插值？

现象回顾 #

你编写的Perl脚本：

#!/usr/bin/perl

foreach(split '$$', 'A$$B'){ print; }
print "\n";
foreach(split '\$\$', 'A$$B'){ print; }
print "\n";

预期输出两行AB，但实际第一行输出A$$B，第二行输出AB。这并非Perl的bug，而是split函数对第一个参数的特殊处理规则导致的。

核心原因：split的第一个参数会被当作正则模式解析 #

Perl的split函数对第一个参数的处理逻辑是：如果传入的是普通字符串（而非预编译的正则引用），无论用单引号还是双引号包裹，都会被当作正则表达式模式来解析。这和单引号字符串本身的“无变量插值”规则不冲突——单引号只是避免了字符串层面的变量替换，但split会进一步把这个字符串内容作为正则语法来处理。

正则模式中'$$'的含义 #

在Perl正则表达式里，$是特殊元字符，表示“行尾锚点”。当你传入'$$'作为split的分隔符时，这个正则模式的含义是“匹配行尾位置两次”，而字符串A$$B的中间并没有行尾位置，因此split找不到任何分隔符，直接把整个字符串作为单个元素返回，最终输出原串。

而第二个split的参数'\$\$'，在单引号字符串中，反斜杠除了转义单引号和自身外，其余情况下都是字面量。因此这个字符串的实际内容是\$\$，作为正则模式解析时，\$表示匹配字面量的$字符，两个\$就可以正确匹配字符串中的$$，从而将A$$B分割为A和B，输出预期的AB。

额外验证：用字面量匹配的正确写法 #

如果想直接按字面量匹配分隔符，而不用正则转义，可以使用quotemeta函数转义特殊字符，或者用正则引用：

# 用quotemeta处理
foreach(split quotemeta('$$'), 'A$$B'){ print; }
print "\n";

# 用正则引用（预编译正则）
my $sep = qr/\$\$/;
foreach(split $sep, 'A$$B'){ print; }
print "\n";

这两种写法也能得到AB的输出。

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