TCL基础教程——(6)列表.doc

 TCL基础教程——（6）列表     
在上一章中我们提到了列表，在本章中做一个详细一些的介绍。
TCL列表是一个系列的值，使用空格进行分割，很容易让人想到C++和JAVA语言中的数组。在TCL中，通过list命令来将一个系列的值变为一个列表，如
set numberlist [list 1 2 3 4 5 6]
numberlist就是一个简单的列表。
[ppcorn@localhost ppcorn]$ cat numlist.tcl
#!/usr/bin/tclsh
set numberlist [list 1 2 3 4 5 6]
puts $numberlist
[ppcorn@localhost ppcorn]$ ./numlist.tcl
1 2 3 4 5 6
对于列表来说，常用的操作有以下：
命令
用法
list arg1 arg2
根据所有的值构造一个列表
lindex list i
返回list的第i个元素
llength list
返回list的元素个数
lrange i j
返回list中从第i个到第j个的元素
lappend list arg1 arg2
将元素追加到list的后面
linsert list index arg
将元素追加到list中位于index之前的位置
lreplace list i j arg arg
将list中从i到j的元素替换为args
lsearch ?mode? list value
根据mode(-exact –glob或-regexp)返回list中与value匹配的元素索引，如果没有就返回-1
lsort ?switches? list
根据开关选项对list进行排序
concat list list
将多个list连接
join list joinstring
以joinstring为分隔符，将列表中的元素合并在一起
split string split chars
使用split chars中的字符串作为列表元素的分割
很容易看出来，对单个列表进行操作的命令，都是以l（list）开头。
就列表而言，应该来说使用机会较多，下面使用程序对上述的命令进行演示。
ppcorn@localhost:~/tcl$ cat listtest.tcl
#!/usr/bin/tclsh
set numberlist [list 1 2 3 4 5 6 7 8 9 0]

# lindex to put the value of No.9, it is 0
puts [lindex $numberlist 9]

# llength to return the length of list, it is 10
puts [llength $numberlist]

# lrange to return to value from No.4 to No.6, it is 5 6 7
puts [lrange $numberlist 4 6]

# lappend to add a var to the end of list
# The value should be 1 2 3 4 5 6 7 8 9 0 a
lappend numberlist a
puts $numberlist

# linsert to insert a var before the postion and return a new list
# it will not change the value of numberlist
# The numberlist1 should be 1 2 3 4 5 b 6 7 8 9 0 a
set numberlist1 [linsert $numberlist 5 b]
puts $numberlist
puts $numberlist1

# lreplace to replace the value from i to j with arg and return a new list
# it will not change the numberlist
# The numberlist2 should be 1 a b c 5 6 7 8 9 0 a
set numberlist2 [lreplace $numberlist 1 3 a b c]
puts $numberlist
puts $numberlist2

# lsearch
# the value should be 8
puts [lsearch $numberlist 9]

# lsort
# the value should be 0 1 2 3 4 5 6 7 8 9 a
puts [lsort $numberlist]

# concat
# The value should be 1 2 3 4 5 6 7 8 9 0 a a b c d
puts [concat $numberlist [list a b c d]]

# join
# the value should be 1:2 3 : 4 5 6
puts [join {1 {2 3} {4 5 6} } : ]

# split
# the value should be ab defg
puts [split abcdefg c]

ppcorn@localhost:~/tcl$ ./listtest.tcl
0
10
5 6 7
1 2 3 4 5 6 7 8 9 0 a
1 2 3 4 5 6 7 8 9 0 a
1 2 3 4 5 b 6 7 8 9 0 a
1 2 3 4 5 6 7 8 9 0 a
1 a b c 5 6 7 8 9 0 a
8
0 1 2 3 4 5 6 7 8 9 a
1 2 3 4 5 6 7 8 9 0 a a b c d
1:2 3:4 5 6
ab defg
如果需要熟练掌握上述的列表功能的话，我想，经过一段时间的运用就可以了。