TCL的lappend,concat的使⽤
⽰例：
set lst [list 1 2 3 4]
>1 2 3 4
lappend lst [list 1 2 3]
>1 2 3 4 {1 2 3}
lappend第⼆个参数是⼀个数时，给指定列表添加⼀个元素；第⼆个参数是⼀个列表时，也给指定列表添加⼀个元素，但是该元素是列表（⼀个整体），不是将新列表中的元素加⼊到列表中。继续：
set a(1) [list 1 2 3 4]
>1 2 3 4
lappend a(1) 5
>1 2 3 4 5
lappend a(1) [list 1 2 3]
>1 2 3 4 5 {1 2 3}
array get a
>1 {1 2 3 4 5 {1 2 3}}
所以欲将⼀个列表的元素加⼊到另⼀个列表可以：（1）遍历列表，逐个元素添加：
set lst1 [list 1 2 3]
>1 2 3
set lst2 [list 4 5 6]
>4 5 6
foreach i $lst2 {lappend lst1 $i}
set lst1
>1 2 3 4 5 6
（2）⽤concat命令：
set lst1 [list 1 2 3]
>1 2 3
set lst2 [list 4 5 6]
>4 5 6
set lst1 [concat $lst1 $lst2]
>1 2 3 4 5 6
注意concat要传递2个已存在的对象，不像lappend⼀样没有对象则创建该对象，下⾯的语句产⽣错误：set lst [concat $c(1) $lst1]
>can't read "c(1)": no such variable

更多推荐

列表,元素,对象