tcl-otcl 腳本：linsert（插入）

       linsert：插入 list 的指定索引位置，前插，從 0 位置開始。

（1）插入頭部

set mylist {1 2 3}
puts $mylist
set mylist [linsert 0 k]
puts $mylist


1 2 3
k 1 2 3

（2）插入尾部

set mylist {1 2 3}
puts $mylist
set mylist [linsert end k]
puts $mylist


1 2 3
1 2 3 k

（3）插入任意位置

set mylist {1 2 3}
puts $mylist
set mylist [linsert 1 k]
puts $mylist


1 2 3
1 k 2 3

（4）插入多個字符

       可以插入多個字符

set mylist {1 2 3}
puts $mylist
set mylist [linsert 1 k f c]
puts $mylist


1 2 3
1 k f c 2 3

       不能插入一個列表！！！

set mylist {1 2 3}
puts $mylist
set tmplist {k f c}
set mylist [linsert 1 $tmplist]        ;# 不能插入一個列表！！！
puts $mylist


1 2 3
1 {k f c} 2 3