tcl-otcl 脚本：list（列表）、llength（长度）、lindex（索引）、lsearch（查找）

1、list

       list：列表。

set mylist {1 2 3}
puts $mylist


1 2 3

2、llength

       llength：计算 list 的长度。

set mylist {1 2 3}
puts $mylist
set len [llength $mylist]
puts $len


1 2 3
3

3、lindex

       lindex：取 list 指定索引位置的值，索引范围为：从 0 到 len-1。

set mylist {1 2 3}
puts $mylist
set e [lindex $mylist 1]        ;# 获取位置 1 的值
puts $e
set e [lindex $mylist 0]        ;# 获取头部的值
puts $e
set e [lindex $mylist end]      ;# 获取尾部的值
puts $e


1 2 3
2
1
3

4、lsearch

       lsearch：查找指定元素在 list 中的第一个索引位置，无该值则返回-1。

set mylist {1 2 3}
puts $mylist
set idx [lsearch $mylist 2]        ;# 查找值为 2 的元素的位置
puts $idx


1 2 3
1


set mylist {1 2 2 3}
puts $mylist
set idx [lsearch $mylist 2]        ;# 查找值为 2 的元素的位置
puts $idx


1 2 2 3
1


set mylist {1 3}
puts $mylist
set idx [lsearch $mylist 2]        ;# 查找值为 2 的元素的位置
puts $idx


1 3
-1