示例:
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