如何获取Perl正则表达式中所有捕获组的值

嘿，这个问题其实Perl本身就提供了非常简洁的解决方式，完全不用手动去统计捕获组的数量～

核心思路：利用列表上下文的正则匹配 #

当你在列表上下文中执行正则匹配操作时，Perl会自动返回所有捕获组匹配到的内容，顺序和正则表达式中捕获组出现的顺序完全一致。不管用户提供的正则有多少个捕获组，这一步都能一次性拿到所有结果。

完整示例代码 #

把你原来的代码修改一下，就能实现需求：

#!/usr/bin/perl -w
use strict; # 强烈建议加上，提升代码健壮性

my $input = `seq -s" " 100 200`;
my $user_regex = qr/100(.*)103(.*)107(.*)109(.*)111(.*)113(.*)116(.*)120(.*)133(.*)140(.*)145/;

# 在列表上下文执行匹配，直接获取所有捕获组内容
if (my @captures = $input =~ $user_regex) {
    # 将所有捕获组的值拼接成单个字符串（这里用空字符串连接，可按需修改分隔符）
    my $concatenated = join '', @captures;
    print "拼接后的结果：$concatenated\n";
} else {
    print "未匹配到任何内容\n";
}

补充说明 #

• 如果你需要确认捕获组的数量，可以在匹配成功后使用特殊变量$#+，它会返回当前匹配中捕获组的总数；或者直接用scalar @captures获取数组长度。
• 如果某些捕获组匹配到空值，join操作也会保留这些空值（符合需求，因为空值也是该捕获组的合法结果）。
• 加上use strict能帮你避免很多潜在的语法错误和变量误用，是Perl开发的最佳实践之一。

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