使用tcl重新排序文件的内容

Question

我是Tcl的新手和一般的代码编写。我有一个看似简单的编码问题，我有大约10小时进入，我似乎无法解决。 我有一个文件，其中包含网络列表clk123，n789，clk456，n246 ....我需要重新排序列表，以便在输出时首先出现clk *网。我可以读取有问题的文件并将内容输出到监视器或文件。但是，我无法找到重新排序列表的方法。我花了很多时间研究这个，现在我完全糊涂了。有人可以提出建议吗？

Answer 1

如果只有clk*和n*网，只需一个简单的排序就足够了：

package require fileutil

proc sort data {
    set lines [split $data \n]
    set lines [lsort $lines]
    join $lines \n
}

::fileutil::updateInPlace thefile.txt sort

文档：fileutil包，join，lsort，package，proc，set，split