鲁达 列表概念：有顺序的1个表，里面实际是一系列指针，可以放任何元素，可以是字符串、数值、也可以是另一个列表。对列表的常见操作有：创建、获取长度、在列表后面追加列表、在任意位置插入元素、删除任意位置元素、跳转至某个元素位置等等，如下图所示。一般情况，在列表尾部追加操作，运算速度较快，但在列表中间进行追加，算法复杂度大大增加（n的复杂度），运算速度变慢，
列表的常规操作示意图
1、列表创建
语法：set listName { item1 item2 item3 .. itemn }，或set listName [list item1 item2 item3]，或set listName [split "items separated by a character" split_character]；
例句：
set lst1 {1 2 3}
set lst2 [list "hm" "hv" "hg"]
代码执行结果：
1 2 3
hm hv hg
2、合并两个列表
语法：concat $listname1 $listname2
例句：
set lst3 [concat $lst1 $lst2]
代码执行结果：
1 2 3 hm hv hg
3、查看列表长度
语法：llength $listname
例句：
llength $lst3
代码执行结果：
6
4、获取列表中某个元素
语法：lindex $listname number
例句：
lindex $lst3 0
lindex $lst3 5
代码执行结果：
1
hv
5、获取列表中某段元素
语法：lrange $listname numberm numbern
例句：
lrange $lst3 0 2
lrange $lst3 3 end
代码执行结果：
1 2 3
hm hv hg
6、通过列表给变量赋值
获取列表中的某个元素赋值给变量。
语法：set varname [lindex $lst3 2]
例句：
set n5 [lindex $lst3 2]
代码执行结果：
3
7、通过列表批量给变量赋值
语法：lassign $listname varname1 varname2 varname3
例句：
lassign $lst3 var1 var2 var3 name1 name2 name3
代码执行结果：
var1 1
var2 2
var3 3
name1 hm
name2 hv
name3 hg
实例应用：获取1个节点的3个坐标值
*createmarkpanel nodes 1 "select nodes" #创建节点选取对话框
set node_id [hm_getmark nodes 1] #获取节点ID号
set coords [lindex [hm_nodevalue $node_id] 0]; #注意此处hm_nodevalue得到的列表为1个嵌套的列表形式，即如列表{{11.1 22.2 33.3}}，该列表只有1个元素（只不过这个元素为1个列表），需指明从嵌套的列表里的第一个元素取值并赋予变量（列表）
lassign $coords x y z; #批量将列表中的元素赋值给变量
puts "x = $x\ty = $y\tz = $z"
puts "$x\t$y\t$z
代码执行结果：
x =... y = ... z = ...
... ... ...
8、列表尾部追加元素
语法：lappend listname item
例句：
set lst [ list 1 2 3]
puts $lst
lappend lst 6
puts $lst
代码执行结果：
1 2 3
1 2 3 6
9、列表中任意位置插入元素
语法：linsert $listname number
例句：
set lst [linsert $lst 0 9; #插入元素后，列表需重新赋值
puts $lst
代码执行结果：
9 1 2 3 6
10、查询列表中元素
语法：lsearch option listname pattern
例句：
lsearch $lst 6
expr {6 in $lst}
expr {9 in $lst}
expr {9 ni $lst}
代码执行结果：
4
1
1
0
11、列表中元素替换
语法：lreplace $listname numberm numbern item
例句：
set lst
lreplace $lst 0 1 {9 9 9 9}
set lst
代码执行结果：
9 1 2 3 6
{9 9 9 9} 2 3 6
9 1 2 3 6 #说明lreplace命令未改变原列表的元素。
12、列表中元素排序
对列表中元素按ASCII码进行排序。
语法：lsort option $listname
例句：
set lst [list 0 1 2 3 2 1 3 4 5 3]
lsort $lst
lsort -unique $lst；#删除重复元素后排序
lsort -unique -decreasing $lst;#删除重复元素后排序，并按降序方式排序
代码执行结果：
0 1 1 2 2 3 3 3 4 5
0 1 2 3 4 5
5 4 3 2 1 0