求助：Tcl正则表达式仅提取数字首位，无法获取完整多位数

问题描述 #

在多Header结构的输出中，使用带Header定位的正则表达式提取Detail后的多位数字时，只能拿到第一位数字（比如提取Header1下Detail1对应的25，只返回2），但直接用Detail匹配的正则可以正常提取完整数字。

示例输出：

Header1
Detail1   : 25
Detail2   : 5     

Header2
Detail1   : 18
Detail2   : 200

原问题正则：

regexp "$header(?:.|\n)*?$detail\s+:\s(\d+)" $output match value 

解决方案 #

方案1：优化正则匹配范围（精准限制在当前Header块） #

通过负前瞻断言避免匹配跨到下一个Header，确保只在当前Header块内查找目标Detail：

set output {
Header1
Detail1   : 25
Detail2   : 5     

Header2
Detail1   : 18
Detail2   : 200
}
set header "Header1"
set detail "Detail1"

# 使用负前瞻(?!Header\d)限制匹配范围
regexp "$header(?:(?!Header\\d).|\\n)*?$detail\\s+:\\s(\\d+)" $output match value
puts $value ;# 输出25

原理：(?!Header\d)会检查当前位置后不是下一个Header的开头，让匹配范围严格限定在当前Header块内，避免中间无关字符干扰\d+的完整匹配。

方案2：使用单行模式简化正则（Tcl 8.5+适用） #

启用Tcl正则的单行模式修饰符(?s)，让.匹配包括换行在内的所有字符，结合懒惰匹配.*?定位到目标Detail：

regexp "(?s)$header.*?$detail\\s+:\\s(\\d+)" $output match value
puts $value ;# 输出25

原理：(?s)开启单行模式后，.*?会懒惰匹配从Header到第一个目标Detail的所有内容，确保\d+能完整捕获后续的多位数字。

方案3：分割块后提取（逻辑更直观） #

先将输出按空行分割为独立的Header块，再在目标块中提取数字：

set blocks [split $output "\n\n"]
foreach block $blocks {
    if {[string match "*$header*" $block]} {
        regexp "$detail\\s+:\\s(\\d+)" $block match value
        puts $value ;# 输出25
        break
    }
}

原理：通过分割块的方式隔离不同Header的内容，再复用已验证能正常工作的Detail匹配正则，逻辑更清晰，不易出现正则匹配异常。

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