Perl中是否有对应Ruby的Regexp.names方法的等价实现？

好问题！Perl本身并没有像Ruby里Regexp#names那样直接返回所有命名捕获组名称的内置方法，不过我们有几种方案可以实现这个需求，咱们来逐一聊聊：

先说说你当前方案的局限 #

你的正则m/\?<(.+?)>/g思路是对的，但存在几个健壮性问题：

• 没考虑Perl还支持另一种命名捕获语法：(?'name'...)，这种写法你的正则匹配不到
• 如果正则里有转义的\?<（比如想匹配字面量?<），你的正则会错误地把它当成命名捕获的开头
• 遇到嵌套的命名捕获（比如(?<outer>(?<inner>...))），虽然你的正则能捕获到，但如果有更复杂的嵌套或特殊字符，可能会出错
• 效率上倒还好，但优雅性确实差点意思——毕竟正则解析本身是个复杂的活儿，用正则去解析正则很容易踩坑

更健壮的方案：用专门的正则解析模块 #

Perl生态里有个Regexp::Parser模块，专门用来解析正则表达式的结构，能完美处理各种合法的正则语法，包括命名捕获的各种写法。

首先你需要安装它（用cpanm Regexp::Parser或者Perl自带的包管理工具），然后就可以这样用：

use Regexp::Parser;
use strict;
use warnings;

my $regex = qr/(?<foo>.)(?'bar'.)(?<baz>.)/; # 混合两种命名写法也没问题
my $parser = Regexp::Parser->new();

# 解析正则表达式，失败的话输出错误信息
$parser->regex($regex) or die "解析失败: " . $parser->errmsg;

my @capture_names;
# 遍历正则的语法树，收集所有命名捕获组的名称
$parser->walk(sub {
    my ($node) = @_;
    push @capture_names, $node->name if $node->isa('Regexp::Parser::NamedCapture');
});

print "捕获组名称: " . join(', ', @capture_names) . "\n";
# 输出：捕获组名称: foo, bar, baz

这个方案的优势很明显：

• 支持Perl所有的命名捕获语法（(?<name>)和(?'name')都能识别）
• 自动忽略转义的特殊字符，不会误判
• 能处理嵌套、复杂的正则结构，健壮性拉满
• 代码可读性也比自己写正则解析强很多

如果不想依赖模块，改进你的正则 #

要是你不想引入第三方模块，可以改进你的正则表达式，覆盖更多边界情况：

use strict;
use warnings;

my $regex = qr/(?<foo>.)(?'bar'.)(?<!\\)\?<test>\\?<ignore>/;
my @capture_names;

# 匹配未转义的两种命名捕获格式，同时跳过转义的字符
while ($regex =~ m/(?:\\.)|(?<!\\)(?:\(\?<([^>]+)>|\(\?'([^']+)'))/g) {
    # 取第一个或第二个捕获组的内容（取决于匹配的是哪种语法）
    push @capture_names, $1 // $2;
}

print "捕获组名称: " . join(', ', @capture_names) . "\n";
# 输出：捕获组名称: foo, bar, test

这个正则的逻辑是：

1. 先匹配\\.（任意转义字符），这些我们直接跳过
2. 然后匹配未转义的(?<name>)或(?'name')，捕获里面的名称
3. 用//操作符取有效的捕获结果

不过要注意，这种方案还是有局限性，比如遇到非常复杂的正则（比如嵌套括号里的命名捕获，或者包含特殊字符的组名），还是可能出错——毕竟正则解析是个复杂的事情，手写正则很难覆盖所有情况。

总结 #

• 追求健壮性、优雅性的话，首推Regexp::Parser模块，这是最专业的解决方案
• 要是不想依赖模块，可以用改进后的正则，但要清楚它的边界情况

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