我怎样才能基于它的键排序TCL关联数组？

Question

我有一个数组名为 “test”：

key -> value 
a  4 
f  5 
c  3 
b  0 
d  9 

而且我想作为对数组进行排序：

a 4 
b 0 
c 3 
d 9 
f 5 

我试着使用：

set sorted_array [lsort [array names test]] 

但这只能返回我：abcdf 我怎样才能得到整个数组的值（也按照键排序）？

我能够得到排序结果。现在，我试图把它作为一个名为“sorted_array”使用代码排序后的数组给出如下：

foreach idx [lsort [array names test]] { 
    append result "$idx $test($idx)" 
    set sorted_array($idx) $test($idx) 
} 

现在，当我打印阵列“sorted_array”使用：

foreach index [array names sorted_array] { 
puts "sorted_array($index): $sorted_array($index)" 
} 

但是，我得到相同数组作为“测试”，而不是一个排序的。

Answer 1

随着stride选项lsort，我们可以很容易地做到这一点。

-stride strideLength

如果指定该选项，该列表被视为由> strideLength元件组和所述基团是 通过它们第一元件排序或，如果-index选项是使用， 由第一个索引给定的每个组中的元素传递给 -index（然后由-index忽略）。元素始终保持在其组中的相同位置。列表长度必须strideLength，的 整数倍这又必须至少为2。

array set test { 
    a  4 
    f  5 
    c  3 
    b  0 
    d  9 
} 
puts [lsort -stride 2 [array get test]] 

输出：

a 4 b 0 c 3 d 9 f 5 

参考：lsort

更新： 如果您的版本低于8.5，那么您必须对数组的索引进行排序并获取数组值。

array set test { 
    a  4 
    f  5 
    c  3 
    b  0 
    d  9 
} 

foreach idx [lsort [array names test]] { 
    append result "$idx $test($idx) " 
} 
puts $result 

这将给出与我的第一种方法相同的输出。

更新2：

# Here, I have given 'lsort', because of appending the to 
# list in a sorted manner. Else, it is not required. 
# i.e. If you only intend to save the values into array, 
# then we don't need 'lsort' here. 
foreach idx [lsort [array names test]] { 
    append result "$idx $test($idx)" 
    set sorted_array($idx) $test($idx) 
} 
# lsort is mandatory for the array indices, so that while 
# printing the elements, it will be in sorted form. 
foreach index [lsort [array names sorted_array]] { 
    puts "sorted_array($index): $sorted_array($index)" 
} 

由于Mr.Glenn杰克曼，而不是做这样的，你也可以使用parray以显示有序数组作为输出。

parray sorted_array