在 tcl 中对关联数组进行排序

Question

我想像这样对数组进行排序，但找不到方法。大家帮帮我！！！

我想像这样对数组进行排序，但找不到方法。

L = {{55 746} {163 746} {163 778} {55 778}} {{939 746} {1047 746} {1047 778} {939 778}} {{277 746} {385 746} {385 778} {277 778}} {{721 746} {829 746} {829 778} {721 778}} {{1161 746} {1269 746} {1269 778} {1161 778}} {{1605 746} {1713 746} {1713 778} {1605 778}} {{499 746} {607 746} {607 778} {499 778}} {{1383 746} {1491 746} {1491 778} {1383 778}}

Answer 1

那实际上看起来像一个由成对列表组成的列表。通常，您可以通过将复合

-index

传递给

lsort

来对它们进行排序：

lsort -integer -index {0 0} $L

这不会覆盖原来的变量； Tcl 没有排序。