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

比如我有

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

我在TCL8.4中尝试了返回坏索引的-index{13}。 我运行该代码的系统仍然使用TCL 8.4

---

如何让类似于{13}的lsort在tcl 8.4中工作？tcl不支持

-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}}
%      

---

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