tcl 8.4 中的 lsort 索引返回错误的索引

【问题标题】：lsort indexing in tcl 8.4 return me bad indextcl 8.4 中的 lsort 索引返回错误的索引
【发布时间】：2016-01-11 14:10:24
【问题描述】：

例如我有

lsort -index {1 3} {{a {0 1 2 9 4}} {b {9 8 7 6 5}} {c {0 0 0 0 0}}}

我已经在 tcl 8.4 中尝试了返回错误索引的 -index {1 3}。我运行该代码的系统仍在使用 TCL 8.4

如何让带有 {1 3} 之类的 lsort 在 tcl 8.4 中工作

【问题讨论】：

您应该知道 8.4 不再支持，甚至不支持安全问题。（不知道，但即使我知道也不会修复它们。）

标签： sorting indexing tcl

【解决方案1】：

Tcl 8.4 不支持-index 选项的索引列表。如果您纯粹希望 Tcl 8.4 使用它，那么您可以使用 -command 选项。

% proc compare {a b} {
    return [string compare [lindex $a 1 3] [lindex $b 1 3]]
}
%
% lsort -command compare {{a {0 1 2 9 4}} {b {9 8 7 6 5}} {c {0 0 0 0 0}}}
{c {0 0 0 0 0}} {b {9 8 7 6 5}} {a {0 1 2 9 4}}
%

【讨论】：