Tcl编程使用名称对文本文件进行排序

我是TCL编程的新手。 我的问题是我有多个文本文件 （例如：

sysDataUpdate\u 1119041809\u 1.sql

，

sysDataUpdate\u 1119041809\u 2.sql

…

sysDataUpdate\u 1119041809\u 50.sql

）位于目录“

ABC

”中

---

现在，我需要一个具有最高编号的.sql文件，如“

sysDataUpdate\u 1119041809\u 50.sql

”？

使用

glob

列出文件，并使用

lsort-dictionary

将它们按您描述的顺序排列。最后，将

end

与

lindex

一起使用将得到最大值：

set files [glob -directory ABC sysDataUpdate*.sql]
set sorted [lsort -dictionary $files]
set largest [lindex $sorted end]

如果需要，可以将其组成一行：

set largest [lindex [lsort -dictionary [glob -directory ABC sysDataUpdate*.sql]] end]

set largest [lindex [lsort -dictionary [glob -directory ABC sysDataUpdate*.sql]] end]