Perl正则表达式匹配失败求助：测试可用代码无效问题

你的问题核心出在Perl字符串的转义处理上，当你用双引号("")定义正则表达式字符串时，Perl会先解析字符串里的转义序列，导致正则中的元字符被破坏——这就是为什么测试网站能正常匹配，但Perl代码不行的原因。

具体原因 #

你写的正则字符串是：

my $regexp = ".*([A-Z][a-z]*\s*[0-9]*\.[0-9]*%\s*\([0-9]*\/[0-9]*\)).*";

在双引号中，\s、\(、\)这些反斜杠开头的序列会被Perl优先解析：比如\(会被当成普通的(（因为Perl中\(不是有效的双引号转义序列，最终会丢失反斜杠），这样正则里本应转义括号的\(就变成了普通括号，而括号在正则里是捕获组的元字符，自然会导致匹配逻辑错乱、匹配失败。

解决方案 #

有两种简单的修复方式：

1. 使用单引号定义正则字符串

单引号('')中的内容不会被Perl解析转义序列，反斜杠会原封不动地传递给正则引擎，这是最稳妥的方式：

my $regexp = '.*([A-Z][a-z]*\s*[0-9]*\.[0-9]*%\s*\([0-9]*\/[0-9]*\)).*';
if ($myString =~ /$regexp/i) {
    print "匹配成功！捕获内容：$1\n";
}

2. 双引号中对反斜杠进行转义

如果你一定要用双引号，需要把所有正则中的反斜杠都写成\\，让Perl解析后保留单个反斜杠给正则引擎：

my $regexp = ".*([A-Z][a-z]*\\s*[0-9]*\\.[0-9]*%\\s*\\([0-9]*\\/[0-9]*\\)).*";
if ($myString =~ /$regexp/i) {
    print "匹配成功！捕获内容：$1\n";
}

额外提示 #

另外，你的正则使用了/i修饰符（忽略大小写），开头的[A-Z][a-z]*其实可以简化成[a-z]+（因为/i会自动匹配大小写），不过这不是匹配失败的核心原因。

还有，当前的正则只会捕获最后一个符合格式的条目（因为.*是贪婪匹配），如果想提取所有的条目，可以使用全局匹配：

my $myString = 'Data Functions 0.0% (0/1)、Functions and exits 0.0% (0/2)、Calls 0.0% (0/6)、Statement blocks 0.0% (0/24)、Implicit blocks 0.0% (0/2)、Decisions 0.0% (0/26)、Basic conditions 0.0% (0/39)';
my @matches = $myString =~ /([A-Za-z\s]+?\s+\d+\.\d+%\s+\(\d+\/\d+\))/g;
foreach my $match (@matches) {
    print "匹配到：$match\n";
}

这个正则用了非贪婪的+?来匹配条目名称，全局修饰符/g来捕获所有符合的内容。

内容的提问来源于stack exchange，提问作者Jérôme G