一、介绍

列表则是具有特殊解释的字符串。Tcl 中的列表操作和其它 Tcl 命令一样具有相同的结构。列表可应用在诸如 foreach 这样的以列表为变元的循环命令中，也应于构建 eval 命令的延迟命令字符串。

二、TCL列表相关命令

二、相关命令

1.list 命令

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

set l1 [list Sun Mon Tues]
结果=>Sun Mon Tues      

set l2 [list $l1 Wed]     ;#列表 l1 含有三个元素
结果=> {Sun Mon Tues} Wed 

set str1 "Sun Mon Tues"
结果=>Sun Mon Tues 

set l2 [list $str1 Wed]     ;#列表 l2 中含有两个元素。第一个元素用花括号括起来。
结果=>{Sun Mon Tues} Wed             ;#和上面的命令结果相同：“列表是特殊的字符串”。 

2.concat 命令

concat 命令以空格为分隔符将多个列表拼装在一起形成新的列表。它和双引号的作用比较相似。

set x {1 2}
结果=> 1 2 

set y "$x 3 " ; #$x 被替换后，作为列表结构的花括号被去掉，
结果=> 1 2 3  ;    #元素被提出来和 3 一起作为新列表的元素 

set y "$x {3}"
结果=> 1 2 {3} 

set y [concat $x 3]       ;#结果同上面的双引号
结果=> 1 2 3 

set y [concat $x {3}]
结果=> 1 2 3 

3.lindex 命令

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

set x { 1 2 3 }
结果=> 1 2 3 

puts [lindex $x 1]
=>2 

4.llength 命令

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

set length "1 2 3 4 5"
结果=>1 2 3 4 5                             ;#定义了一个字符串
set num [llength $l1]          ;#这里 l1 被看作列表了
=>5 

5.lrange 命令

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

lrange {1 2 3 {4 5} 6} 2 end
结果=> 3 {4 5} 6 

6.linsert 和 lreplace 命令

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

其他情况元素被添加到指定位置之前。 lreplace 命令将一个指定区段的列表元素替换为新元素。

如果没有指定新元素，则这个区域的元素就会被从列表中删除。注意：这两个操作不会改变原来列表的内容，而是返回一个新列表。

set x {1 2}
结果=>1 2 

set new [linsert $x 0 he she]
结果=>he she 1 2 

set new [linsert $x end he she]
结果=>1 2 he she 

 set new [linsert $x 1 he she]
结果=>1 he she 2 

 puts $x
结果=>1 2                       ;# x 的值没有改变 

puts $new
结果=>1 he she 2 

set y [lreplace $new 1 2 B C]
结果=>1 B C 2 

set y [lreplace $new 0 0]
结果=>he she 2 

puts $new
结果=>1 he she 2                  ;#new 的内容并没有改变，这和 string replace 相同。 

set y [lreplace $new 1 2]
结果=>1 2                           ;#将第 1、2 个元素删除 

7.lsearch 命令

lsearch 命令在给定列表中搜索与匹配字符串匹配的元素，成功就返回正确的元素索引，否则返回-1。lsearch 支持通配符格式，但可以使用-exact 选项将其屏蔽而进行精确匹配。

set l1 [list This  is one list]
结果=> This is one list 

set index [lsearch $l1 l*]
结果=> 3 

set index [lsearch -exact $l1 l*]
结果=>-1 

set index [lsearch -exact $l1 list]
结果=>3 

8.lsort 命令

lsort 命令实现对列表的排序。排序操作不影响原表，而是返回排序之后的新表。

set list "a Z z n100 n200 M p Hl hL m 1 20"
结果=>a Z z n100 n200 M p Hl hL m 1 20 

lsort -ascii $list
结果=>1 20 Hl M Z a hL m n100 n200 p z 

lsort -dictionary $list
结果=>1 20 a Hl hL M m n100 n200 p Z z 

9. join 与 split 命令

join 命令接收一个列表，并用指定的分隔符将列表元素整合成一个字符串

join {1 {2 3} {4 5 6}} :
结果=> 1:2 3:4 5 6 

split 命令的作用与 join 的作用相反，它接收一个字符串，并根据给定的字符将其分割转换成

一个列表。

set str cm8/auto/tools/aries/ASAM/NE/SNMP/IMPL/ne_create_board.tcl
结果=>cm8/auto/tools/aries/ASAM/NE/SNMP/IMPL/ne_create_board.tcl
set s /
结果=>/ 

set l1 [split $str $s]
结果=> cm8 auto tools aries ASAM NE SNMP IMPL ne_create_board.tcl 

set  l2 [split $str  "/."]    ;#可以指定多个分割符
结果=> cm8 auto tools aries ASAM NE SNMP IMPL ne_create_board tcl 

 10.foreach 控制结构

foreach 命令/控制结构会遍历整个列表，逐次取出列表的每个元素的值放到指定变量中，使用者可以在跟随的过程体中添加必要的处理过程。

set lst "1 2 3 4"
结果是=>1 2 3 4

foreach l1 $lst {
puts  $l1
}
结果是=>
1
2
3
4