首页 > 代码库 > TCL语言笔记：TCL中的列表操作
TCL语言笔记：TCL中的列表操作
一、介绍
列表则是具有特殊解释的字符串。Tcl 中的列表操作和其它 Tcl 命令一样具有相同的结构。列表可应用在诸如 foreach 这样的以列表为变元的循环命令中，也应于构建 eval 命令的延迟命令字符串。
二、TCL列表相关命令
命令 | 说明 |
list arg1 arg2 ... | 创建一个列表 |
lindex list index | 返回列表 list 中的第 index 个元素（element）值 |
llength list | 计算列表 list 元素个数 |
lrange list index1 index2 | 返回指定范围内（从 index1 到 index2）的元素 |
lappend list arg1 arg2 ... | 将新元素追加到原来列表 list 后组成新的列表 |
linsert list index arg1 arg2 ... | 将新元素插入到 list 中位于 index 元素之前的位置上 |
lreplace list index1 index2 arg1 arg2 ... | 替换指定范围的元素 |
lsearch ?mode? list value | 根据匹配模式 mode，查找 list 中与 value 匹配的元素位置索引。mode 一般为-exact、-glob 和regexp.默认为-glob。找不到返回-1。 |
lsort ?switches? list | 根据 开关选项对列表进行排序 |
concat list1 list2 ... | 连接多个列表内容成一个列表 |
join list joinChars | 以 joinChars 为分隔符将列表中的元素合并在一起 |
split string splitChars | 以 splitChars 中的字符作为分隔符将字符串分解为列表元素。 |
foreach var list {proc body} | 遍历列表各项，逐次将各元素值存入 var 中并执行 proc body。相当于一个循环控制语句。 |
二、相关命令
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 4foreach l1 $lst {puts $l1}结果是=>1234
TCL语言笔记：TCL中的列表操作