Perl 5.20获取正则首个分隔符位置：无/g修饰符方案失效原因及正确做法

Perl中pos()函数的触发规则非常明确：

• pos()用于存储字符串下一次全局正则匹配的起始偏移，只有在执行带/g修饰符的匹配，或者手动给pos()赋值时，这个值才会被自动更新。
• 普通非全局匹配（不带/g）哪怕完全命中目标文本，也不会修改字符串的pos属性。

你测试代码里不带/g的分支，正则其实已经匹配成功了，但因为没触发pos()更新，读出来的位置值是空，才会误走到SKIP分支输出原文本。

针对你分离前置Token、定位Token后第一个分隔符位置的需求，有两种稳定可靠的实现，完全不需要使用全局匹配：

基于内置匹配位置变量实现 #

Perl提供的@-、@+特殊变量是单匹配场景下获取位置的标准方案，无论正则是否带/g，只要匹配成功就会自动写入正确的偏移值：

• $-[n]：第n个捕获组在目标字符串中的起始偏移量
• $+[n]：第n个捕获组在目标字符串中的结束偏移量

针对你的场景可以这样写：

use strict;
use warnings;

# 匹配规则：开头空白+Token主体+带捕获组的分隔符
my $TSEP = qr/^\s*[\w\-\.]+(?<sep>[:\s])/;
my $TEXT = '  RED_123-DASH.DOT: PARAM1 PARAM2 ...';

if ($TEXT =~ /$TSEP/) {
    # 分隔符的起始位置就是Token的结束位置
    my $sep_pos = $LAST_MATCH_START{'sep'};
    # 计算Token的真实起始位置（跳过开头空白）
    my $match_full = $&;
    (my $lead_ws = $match_full) =~ s/^\s+//;
    my $token_start = $LAST_MATCH_START[0] + (length($match_full) - length($lead_ws));
    my $token = substr($TEXT, $token_start, $sep_pos - $token_start);
    print "TKN: $token\n"; # 输出 TKN: RED_123-DASH.DOT
}

修正原参考的匹配定位函数 #

你之前参考的match_positions函数失效的核心，就是错误依赖了非全局匹配下的pos()返回值，直接把位置计算逻辑替换为@-、@+即可：

sub match_positions {
    my ($regex, $string) = @_;
    return unless $string =~ /($regex)/;
    # 直接读取捕获组的边界，不依赖pos()
    return ($-[1], $+[1]);
}

这个实现不管是否带/g，都能准确返回首个匹配的起始、结束位置。

补充说明：如果需要遍历所有匹配位置，再使用带/g的循环逻辑即可，单次定位场景下完全不需要全局修饰符。

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