TCL语言学习笔记(2) -列表

列表概念：有顺序的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