能否简化捕获重复子组的正则表达式并保留全部捕获组？

这个问题是Perl正则里非常典型的「重复捕获组陷阱」——当你用量词（比如{4}）重复一个包含捕获组的非捕获结构时，捕获组只会保留最后一次匹配的内容，前面的匹配结果都会被覆盖，这就是为什么你用(?:(\d+)\s+){4}后只拿到最后一个数字，其他都是undef的原因。

最简单的解决方案：全局匹配/(\d+)/g #

既然你的目标是提取字符串里所有的数字组，完全不需要写重复的捕获组，直接用全局匹配修饰符g就能一次性捕获所有符合条件的数字：

my $str = "1 2 3 4 ;";
my @nums = $str =~ /(\d+)/g;
# 输出结果：@nums = ('1', '2', '3', '4')

这个写法既简洁又灵活，不管字符串里有几个数字（只要是连续数字格式），都能全部捕获出来。

为什么原来的写法不行？ #

Perl的捕获组是「覆盖式存储」的：当你使用(?:(\d+)\s+){4}时，正则会循环匹配4次(\d+)\s+，但每次匹配都会把新的数字存入第一个捕获组，覆盖之前的内容。循环结束后，捕获组里就只剩下最后一次匹配的4，其他未被单独匹配的组自然就是undef了。

其他可选方案（针对固定格式场景） #

如果你的字符串格式是固定的「四个数字+空格+分号」，也可以用split来拆分，代码同样简洁：

my $str = "1 2 3 4 ;";
# 用非数字字符拆分，过滤空元素
my @nums = grep { length } split /\D+/, $str;

不过这种方法不如全局正则直观，尤其是当字符串里有其他非数字字符时，全局匹配的针对性更强。

内容的提问来源于stack exchange，提问作者Håkon Hægland