Perl 5：正则模式中抑制@变量插值的更佳方案咨询

一、更优的处理方式：避免使用eval拼接正则替换语句 #

问题根源在于用eval拼接字符串时，Perl会先对$replace中的@进行变量插值（把@RunWith当作未定义的数组，插值为空）。最直接的解决方法是直接执行正则替换，完全避开eval，既消除了插值问题，也提升了代码安全性和可读性：

use strict;
use warnings;
use feature 'say';

my $text_str ='public class ZipUtilTest extends TestCase {}';
# 用qr编译正则模式，启用多行匹配
my $pattern = qr/^(public class \w+) extends TestCase \{/m;
# 用qq包裹替换字符串，转义@避免插值，同时保留\n的换行转义
my $replace_str = qq{\@RunWith(JUnit4.class)\n$1 {}};
# 直接执行替换
$text_str =~ s/$pattern/$replace_str/;
say $text_str;

如果因为动态构建正则/替换内容必须使用eval，可以通过保护$replace中的特殊字符来避免插值：

use strict;
use warnings;
use feature 'say';

my $text_str ='public class ZipUtilTest extends TestCase {}';
my $find = '^(public class \w+) extends TestCase \{';
my $replace = '@RunWith(JUnit4.class)\n$1 {';
# 自动转义@和$，防止插值
$replace =~ s/([\@\$])/\\$1/g;
eval "\$text_str =~ s#$find#$replace#mg";
say $text_str;

二、需要转义的特殊字符 #

在Perl双引号上下文（包括eval中被双引号解析的字符串）中，以下字符会触发变量/代码插值，必须转义才能保留字面意义：

• @：数组变量前缀（如@array）
• $：标量变量前缀（如$var）
• %：哈希变量前缀（如%hash）
• &：子例程调用前缀（如&sub）
• \：转义字符本身，要表示字面\需写成\\
• "：双引号字符串中，字面双引号需写成\"

其中@和$是日常替换场景中最常遇到的需要转义的字符。

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