Tcl 中的列表操作：

列表则是具有特殊解释的字符串。Tcl 中的列表操作和其它 Tcl 命令 一样具有相同的结构。

列表可应1用在诸如 foreach 这样的以列表为变元的循环命令中，也应于构建 eval 命令的延迟命令字符串。

一、list 命令

list 命令用来创建列表。 一个列表可以包含子列表，即列表可以嵌套。 

>set l1 [list Sun Mon Tues]

=>Sun Mon Tues ; #列表 l1 含有三个元素

>set l2 [list $l1 Wed]

=> {Sun Mon Tues} Wed ; #列表 l2 中含有两个元素。第一个元素用花括号括起来。

>set b 10

>set l3 [list { a $b c} d]

=>{a $b c} d ;#花括号阻止引用替换

>set l3 [list "a $b c" d]

=> {a 10 c} d

在创建 list 的时候比较灵活，有时比较难以理解和容易出错，特别是花括号。如何理解花括号的作用呢？可以这么简单认为：花括号内部代表的是子列表。当用 list 命令创建列表的时 候，如果元素是单个的词，就不用大括弧括起来，但如果某个元素是以空格分割的字符串时， 就将其看作一个子列表而用花括号括起来。注意实际的处理过程并不是这样的，要复杂一些。

二、concat 命令

concat 命令以空格为分隔符将多个列表拼装在一起形成新的列表。

list 命令和 concat 命令都可以完成列表合并功能。list 命令保留每个列表的结构，将每个列表作为一个整体生成新列表的元素来完成。而 concat 命令则要先把各个列表的最外层列表结构去掉，将其中的所有元素取出来作为新列表的元素来完成合并，即新列表的每个元素也是合并前列表的元素。

>set x {1 2}

=> 1 2

>set y "$x {3}"

=>1 2 {3}

>set y [list $x {3}]

=>{1 2} 3; #list 命令保留了每个列表的结构

=>set y [concat $x {3}]

=>1 2 3

三、lappend 命令

lappend 命令用来将新元素追加到列表末尾。

>lappend new 1 2

=> 1 2

>lappend new {3 4} "5" {6} 7

=> 1 2 {3 4} 5 6 7

四、llength命令

llength 命令可以获得一个列表内元素的个数。

>set l1 "1 2 3 4 5"

=>1 2 3 4 5 ;#定义了一个字符串

>set num [llength $l1] ;#这里 l1 被看作列表了

=>5

这个例子中，先前定义的一个字符串被看作一个 list！（Tcl 中的 list 只不过是一个有特殊解 释的字符串）。 列表是用空格搁开的多个元素组成的字符串，而通过 list 相关命令得到了特殊解释。既然 list 是字符串，那么所有适用于字符串的操作命令也应该适用于列表。

五、Index命令

lindex 命令返回列表中指定位置的特定元素。列表索引从 0 开始记数！

>set x {1 3 5}

=>1 3 5

>lindex $x 0

=>1

>lindex $x end

=>5

六、lrange命令

lrange 命令返回一个指定区段的列表元素，可以以 end 或者 end-n 作为索引（n 为正整 数）。

>lrange {1 2 3 {4 5} 6} 2 end

=> 3 {4 5} 6

七、linsert 和 lreplace 命令

linsert 命令用来将元素插入到一个列表的由索引指定的位置。如果索引为 0 或者更小，则元 素就会被添加到最前面。如果索引值大于或者等于列表长度，则元素被追加到列表尾部。其他 情况元素被添加到指定位置之前。

lreplace 命令将一个指定区段的列表元素替换为新元素。如果没有指定新元素，则这个区域 的元素就会被从列表中删除。

注意：这两个操作不会改变原来列表的内容，而是返回一个新列表。