缺少空格时使用正则表达式提取值

在这种情况下,我首先将行拆分为字段

foreach line $lines {
    set fields [regexp -inline -all {\S+} $line]
    if {[llength $fields] == 6} {
        puts [lindex $fields 2]
    } else {
        # extract the digits at the end of this field
        regexp {\d+$} [lindex $fields 1] value
        puts $value
    }
}

841901
543182
3063025
694043

问题在于 \w \w [a-zA-Z0-9_] 因此,它也将与数字匹配(因为缺少空格)。

使用 [a-zA-Z_]

\d+\s+([a-z]+-?[a-z]+)\s*(\d+)\s+\d+\s+\d+\s+\d+