如何根据Tcl数组键对应值末尾的数字对数组进行排序

现有公开示例大多只覆盖单值简单键的Tcl数组排序场景，针对值为带末尾数字的长文本的数组，完全可以用Tcl原生能力完成排序，不需要依赖外部sort命令、生成临时文件，最终可直接将排序结果写入目标文件。

实现思路 #

• 先通过原生命令提取数组全量键值对，转为可排序的列表结构
• 借助lsort的自定义比较能力，从每个值的末尾提取目标数字作为排序依据，同时兼容整数、浮点数格式
• 遍历排序后的有序键值对，按指定格式写入输出文件即可

完整可运行代码 #

# 待排序的示例数组
set a(one) "some sort of text and num 234"
set a(two) "same format of text with 123"
set a(three) "same format of text with 12.3"

# 按值末尾数字升序排序
set sorted_pairs [lsort -real -command {
    {val1 val2} {
        # 提取字符串末尾的数字，支持整数、浮点数匹配
        regexp {(\d+\.?\d*)$} $val1 -> num1
        regexp {(\d+\.?\d*)$} $val2 -> num2
        # 返回数字比较结果
        expr {$num1 <=> $num2}
    }
} [array get a]]

# 将排序结果写入目标文件
set out_fd [open sorted_result.txt w]
dict for {key content} $sorted_pairs {
    puts $out_fd "$key => $content"
}
close $out_fd

关键说明 #

• 排序时加-real参数是为了兼容浮点数场景（比如示例中的12.3），如果所有待排序的末尾数字均为整数，可替换为-integer参数小幅提升运行效率
• 代码中用正则(\d+\.?\d*)$匹配字符串末尾的数字，若业务场景中末尾数字包含负号、科学计数法等格式，对应调整正则匹配规则即可
• 排序后返回的键值交替列表天然符合Tcl字典结构，无需额外格式转换，直接用dict for即可按排序顺序遍历所有键和对应值
• 全流程使用Tcl内置命令，无外部依赖，不需要生成临时中转文件，比调用外部sort的方案更简洁易维护

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