tcltk实例详解——列表操作（二）

列表操作在脚本中使用的频率非常高，基本上每个脚本都会涉及到其中的一些操作，在这里对列表的命令进行实例解析，以加深对列表命令的理解，本文涉及的命令为llength、lindex、lrange、lsearch和lassign。

llength list
返回一个列表的元素个数，非常简单而又常用的命令。
% llength {This is a tcltk example}
5

lindex list ?index...?
根据索引值，找出列表中索引为index的元素，如果没有index就返回整个列表，如果有多个index就返回列表的子列表的元素，具体示例如下：
返回整个列表：
% lindex {This is a tcltk example}
This is a tcltk example
返回列表中索引为3的元素：
% lindex {This is a tcltk example} 3
tcltk
返回列表中索引为2的元素
% lindex {{This is} a {tcltk example}} 2
tcltk example
返回列表中索引为2的子列表中索引为1的元素
% lindex {{This is} a {tcltk example}} 2 1
example

lrange list first last
返回列表一个区间的元素，这个区间由first和last指定。
% lrange {This is a tcltk example} 1 3
is a tcltk

lsearch ?options? list pattern
在列表中寻找元素，这里的标志位比较多，下面一一介绍，多个标志位可以互相混用。
以下是匹配风格标志位：
寻找的列表元素严格匹配pattern，也就是说pattern就是列表中的一个元素才能找到，返回元素的索引：
% lsearch -exact {This is a tcltk example} is
1
以glob风格匹配pattern，没有匹配风格标志位的话默认就是glob，搜索以is结尾的字符：
% lsearch -glob {This is a tcltk example} *is
0
以正则表达式风格匹配，搜索以is结尾的字符：
% lsearch -regexp {This is a tcltk example} .*is
0
以下是一些修饰标志位：
返回所有符合匹配风格的元素索引：
% lsearch -all {This is a tcltk example} *is
0 1
返回符合匹配风格的元素值而不是索引：
% lsearch -inline -all {This is a tcltk example} *is
This is
返回不符合匹配风格的元素索引：
% lsearch -not -all {This is a tcltk example} *is
2 3 4
从指定的索引开始搜索，下面的例子只返回了索引1，没有返回索引0：
% lsearch -start 1 -all {This is a tcltk example} *is
1
内容描述标志位：
所匹配的内容为ASCII码，使用-ascii标志位，默认就是。
可以和-sorted一起使用-dictionary来标志以字典顺序匹配。
使用-integer说明列表元素被当作整数匹配。
-real说明列表元素被当作浮点数匹配。
-nocase忽略大小写：
% lsearch -nocase {This is a tcltk example} this
0
还有两个排序标志位，需要和sorted一起使用，-decreasing和-increasing分别代表降序和升序。
两个嵌入式标志位：
-index，匹配子列表中的索引，下面的例子匹配子列表中的第二个元素，有这个标志位要求list中每个元素都必须有子列表，并且有需要检查的index：
% lsearch -index 1 -all {{This is} {b a} {tcltk example}} *a*
1 2
-subindices，需要和-index一起使用，返回匹配的全路径：
% lsearch -index 1 -all -subindices {{This is} {b a} {tcltk example}} *a*
{1 1} {2 1}

lassign list varName ?varName ...?
将列表元素赋值给变量，直接采用help里面的例子，非常明确了：
lassign {a b c} x y z ;# 返回空
puts $x ;# Prints "a"
puts $y ;# Prints "b"
puts $z ;# Prints "c"

lassign {d e} x y z ;# 返回空
puts $x ;# Prints "d"
puts $y ;# Prints "e"
puts $z ;# Prints ""

lassign {f g h i} x y ;# 返回"h i"
puts $x ;# Prints "f"
puts $y ;# Prints "g"