Perl正则重复匹配捕获组仅留存最后结果是使用错误还是Bug

这不是Perl的bug，是对正则重复捕获组的行为理解有误。

核心原因 #

当带有捕获功能的分组被量词（如{0,4}、+、*）修饰时，该捕获组只会保留最后一次匹配的结果，之前的匹配结果会被依次覆盖。你代码中的(;$RE_simple_float?){0,4}是单个捕获组最多重复匹配4次，所以最终结果数组里只会保留最后一次匹配到的;0，前面三次匹配的;都被覆盖没有保留。

解决方案 #

因为你要匹配的后缀段最多只有4个（对应warn、crit、min、max四个可选值），有两种可靠的实现方式：

1. 展开捕获组代替重复量词
   直接把4个可选分段写成独立的捕获组，就可以拿到所有分段的匹配结果，修改后的正则构造逻辑如下：

my $RE_label = qr/'[^'=]+'|[^'= ]+/;
my $RE_simple_float = qr/\d+(?:\.\d*)?|\.\d+/;
my $RE_seg = qr/;$RE_simple_float?/;
# 四个独立捕获组对应四个可选分段
my $RE = qr/^($RE_label)=($RE_simple_float)(s|%|[KMT]?B)?($RE_seg)?($RE_seg)?($RE_seg)?($RE_seg)?$/;

用这个正则匹配last=0.508798;;;0时，结果数组的后四位就会依次为;、;、;、;0，符合你的预期。
2. 拆分处理后缀
先捕获整个后缀部分，再用split拆分处理，逻辑更直观不易出错：

if (/^($RE_label)=($RE_simple_float)(s|%|[KMT]?B)?(.*)$/) {
    my ($label, $val, $uom, $suffix) = ($1, $2, $3, $4);
    my @segments = split /(?=;)/, $suffix; # 按;前的位置分割，保留;前缀
    # @segments 即为所有后缀分段的数组
}

内容的提问来源于stack exchange，提问作者U. Windl