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

原文链接：https://blog.csdn.net/a845179011/article/details/84573071