tcl-otcl 脚本：lreplace（替换、删除）

       lreplace：替换 / 删除 指定 索引位置 / 索引范围 的元素。

1、替换

（1）替换指定索引范围的元素

puts "----------replace any element----------"
set mylist {1 2 3}
puts $mylist 
set mylist [lreplace $mylist 0 1 0]           ;# 替换指定索引范围的元素
puts $mylist 


1 2 3
0 3

（2）替换指定索引位置的元素

puts "----------replace any element----------"
set mylist {1 2 3}
puts $mylist 
set mylist [lreplace $mylist 1 1 0]           ;# 替换指定索引范围的元素
puts $mylist 


1 2 3
1 0 3

2、删除

（1）删除指定索引位置的元素

puts "----------delete any element----------"
set mylist {a b c}
puts $mylist
set idx [lsearch $mylist "b"]
set mylist [lreplace $mylist $idx $idx]        ;# 删除指定索引位置的元素
puts $mylist

（2）删除尾部元素

puts "----------delete end element----------"
set mylist {a b c}
puts $mylist
set mylist [lreplace $mylist end end]          ;# 删除尾部元素
puts $mylist