Tcl正则提取所有匹配至列表后，循环仅获首个捕获组问题

• 问题根源：regexp -all -inline返回的列表是**完整匹配串、捕获组内容、完整匹配串、捕获组内容...**的交替结构。如果循环变量未对应这个结构，就会出现仅拿到第一个捕获组的情况。

• 正确实现示例（中文注释版）：

# 模拟待匹配的文件内容
set fileData "这里是其他内容
04:04:01.121 找到我 1
这是无关内容
04:04:01.122 找到我 2
这是无关内容 1
04:04:01.123 找到我 3
这是无关内容 2
04:04:01.124 找到我 4
这是无关内容 3
04:04:01.125 找到我 5
这是无关内容 4
04:04:01.126 找到我 6"

# 正则表达式：捕获时间戳，匹配后续包含"找到我"的行
set testRegEx "(\\d{2}:\\d{2}:\\d{2}.\\d{3}).*找到我"

# -all：开启全局匹配所有符合条件的内容；-inline：将匹配结果以列表形式返回
set regexList [regexp -nocase -all -inline $testRegEx $fileData]

# 遍历列表：每次取两个元素，第一个是完整匹配的整行，第二个是捕获的时间戳
foreach {whole item} $regexList {
    puts "-----捕获到的时间戳：$item"
}

• 关键说明：
  • regexp -all -inline的返回列表长度为「匹配次数 × (捕获组数量+1)」，这里捕获组数量为1，所以每两个元素为一组（完整匹配内容+捕获组内容）。
  • foreach {whole item} $regexList的变量结构会自动按顺序将列表元素两两赋值给whole和item，从而遍历所有捕获组结果。
  • 若你的代码仅拿到第一个捕获组，检查两点：一是是否加了-all参数开启全局匹配；二是循环变量是否对应列表的交替结构。

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