对只有最小值的列进行排序

Question

我有这种文件:

abak 1 2 3 4
b.b   2 3 4 5 
abak 2 5 6 2 
b.b  -1.2 3 4 6
cc   3 4 5 6

我想要

abak 1 2 3 4
b.b  -1.2 3 4 6
cc   3 4 5 6  

一个按第 2 列排序的文件，只有该列的最小值

作为第一步，我尝试对行进行排序:

set file [open "[lindex $argv 0]" "r"]

    foreach line [split [read $file] "\n"] {
            lappend records [split $line " "]
    }
    set records [lsort -index 1 -real $records]

    foreach record $records {
            puts [join $record " "]
    }
}

但我出错了:

expected floating-point number but got ""
    while executing
"lsort -index 1 -real $records"

第2列不全是 float ，而是实数； 为什么它不能工作？

谢谢

Answer 1

这是一个关于创建和操作数据结构的问题。这就是我的处理方式:

set fid [open filename r]
set data [dict create]
while {[gets $fid line] != -1} {
    set fields [regexp -inline -all {\S+} $line]
    dict lappend data [lindex $fields 0] [lrange $fields 1 end]
}
dict for {key values} $data {
    puts [format "%-5s %s" $key [lindex [lsort -real -index 0 $values] 0]]
}

输出

abak  1 2 3 4
b.b   -1.2 3 4 6
cc    3 4 5 6