请教 TCL 数组排序的问题，谢谢。

regodme

TCL 数组的输出顺序是被自动排序了，如何不让他自动排序，按照创建的顺序输出。

程序创建了一个数组，ontlist
创建的顺序如下：
set ontlist(0/1/0/0)  [list  0/1/0/0 0 1 0 0 offline initial gpon - omci -]
set ontlist(0/1/0/1)  [list  0/1/0/1 0 1 0 1 online normal gpon 110 omci -]
set ontlist(0/1/0/2)  [list  0/1/0/2 0 1 0 2 online normal gpon 110F omci -]
set ontlist(0/1/0/3)  [list  0/1/0/3 0 1 0 3 online normal gpon 110F omci -]
set ontlist(0/1/0/11) [list  0/1/0/11 0 1 0 11 online normal gpon 110F omci -]
set ontlist(0/1/0/12) [list  0/1/0/12 0 1 0 12 offline initial gpon - omci -]
set ontlist(0/1/0/13) [list  0/1/0/13 0 1 0 13 online normal gpon 110 omci -]
set ontlist(0/1/0/20) [list  0/1/0/20 0 1 0 20 online normal gpon 110F omci -]
set ontlist(0/1/0/26) [list  0/1/0/26 0 1 0 26 online normal gpon 110F omci -]
set ontlist(0/1/0/27) [list  0/1/0/27 0 1 0 27 online normal gpon 110 omci -]
set ontlist(0/1/0/35) [list  0/1/0/35 0 1 0 35 online normal gpon 110 omci -]

parray 的时候顺序变成如下

ontlist(0/1/0/0)   = 0/1/0/0 0 1 0 0 offline initial gpon - omci -
ontlist(0/1/0/1)   = 0/1/0/1 0 1 0 1 online normal gpon 110 omci -
ontlist(0/1/0/11)  = 0/1/0/11 0 1 0 11 online normal gpon 110F omci -
ontlist(0/1/0/12)  = 0/1/0/12 0 1 0 12 offline initial gpon - omci -
ontlist(0/1/0/13)  = 0/1/0/13 0 1 0 13 online normal gpon 110 omci -
ontlist(0/1/0/2)   = 0/1/0/2 0 1 0 2 online normal gpon 110F omci -
ontlist(0/1/0/20)  = 0/1/0/20 0 1 0 20 online normal gpon 110F omci -
ontlist(0/1/0/26)  = 0/1/0/26 0 1 0 26 online normal gpon 110F omci -
ontlist(0/1/0/27)  = 0/1/0/27 0 1 0 27 online normal gpon 110 omci -
ontlist(0/1/0/3)   = 0/1/0/3 0 1 0 3 online normal gpon 110F omci -
ontlist(0/1/0/35)  = 0/1/0/35 0 1 0 35 online normal gpon 110 omci -

klainogn

tcl中的Array其实就是一个hash表，是按key---value的方式记录的， 并非按照你创建的顺序排列的，想要有序，建议先把key也就是index按你的顺序存为一个列表list变量，然后按列表去创建、读取

waker

1. 
   
2. foreach tmp [lsort -dictionary [array names ontlist]] {
   
3. puts "ontlist($tmp) = $ontlist($tmp)" }

复制代码

regodme

谢谢 waker。太牛了，一个命令就搞定。

regodme

也谢谢klainogn , 我的问题有点没说清楚。