TCL: LIST命令－lsearch, lsort, lrange

命令格式：lsearch list pattern lsort list lrange list first last 实例：set list [list {Washington 1789} {Adams 1797} {Jefferson 1801} \ {Madison 1809} {Monroe 1817} {Adams 1825} ] set x [lsearch $list Washington*]set y [lsearch $list Madison*]incr xincr y -1 ;# Set range to be not-inclusive set subsetlist [lrange $list $x $y] puts "The following presidents served between Washington and Madison"foreach item $subsetlist { puts "Starting in [lindex $item 1]: President [lindex $item 0] "} set x [lsearch $list Madison*] set srtlist [lsort $list]set y [lsearch $srtlist Madison*] puts "\n$x Presidents came before Madison chronologically"puts "$y Presidents came before Madison alphabetically" 执行结果：The following presidents served between Washington and MadisonStarting in 1797: President Adams Starting in 1801: President Jefferson 3 Presidents came before Madison chronologically3 Presidents came before Madison alphabetically 附上常见的列表命令：1 list命令 语法： list ? value value...? 这个命令生成一个list，list的元素就是所有的value。例： % list 1 2 {3 4} 1 2 {3 4}concat命令: 语法:concat list ?list...? 这个命令把多个list合成一个list，每个list变成新list的一个元素。3 lindex命令 语法：lindex list index 返回list的第index个(0-based)元素。例： % lindex {1 2 {3 4}} 2 3 44 llength命令 语法：llength list 返回list的元素个数。例 % llength {1 2 {3 4}} 35 linsert命令 语法：linsert list index value ?value...? 返回一个新串，新串是把所有的value参数值插入list的第index个(0-based)元素之前得到。例: % linsert {1 2 {3 4}} 1 7 8 {9 10} 1 7 8 {9 10} 2 {3 4}6 lreplace命令: 语法：lreplace list first last ?value value ...? 返回一个新串，新串是把list的第firs (0-based)t到第last 个(0-based)元素用所有的value参数替换得到的。如果没有value参数，就表示删除第first到第last个元素。例： % lreplace {1 7 8 {9 10} 2 {3 4}} 3 3 1 7 8 2 {3 4} % lreplace {1 7 8 2 {3 4}} 4 4 4 5 6 1 7 8 2 4 5 67 lrange 命令: 语法:lrange list first last 返回list的第first (0-based)到第last (0-based)元素组成的串,如果last的值是end。就是从第first个直到串的最后。 例： % lrange {1 7 8 2 4 5 6} 3 end 2 4 5 68 lappend命令: 语法：lappend varname value ?value...? 把每个value的值作为一个元素附加到变量varname后面，并返回变量的新值，如果varname不存在，就生成这个变量。例： % lappend a 1 2 3 1 2 3 % set a 1 2 39 lsearch 命令: 语法：lsearch ?-exact? ?-glob? ?-regexp? list pattern 返回list中第一个匹配模式pattern的元素的索引，如果找不到匹配就返回-1。-exact、-glob、 -regexp是三种模式匹配的技术。-exact表示精确匹配；-glob的匹配方式和string match命令的匹配方式相同，将在后面第八节介绍string命令时介绍；-regexp表示正规表达式匹配，将在第八节介绍regexp命令时介绍。缺省时使用-glob匹配。例: % set a { how are you } how are you % lsearch $a y* 2 % lsearch $a y? -110 lsort命令: 语法：lsort ?options? list 这个命令返回把list排序后的串。options可以是如下值： -ascii 按ASCII字符的顺序排序比较.这是缺省情况。 -dictionary 按字典排序,与-ascii不同的地方是： (1)不考虑大小写 (2)如果元素中有数字的话,数字被当作整数来排序. 因此：bigBoy排在bigbang和bigboy之间, x10y 排在x9y和x11y之间. -integer 把list的元素转换成整数,按整数排序. -real 把list的元素转换成浮点数,按浮点数排序. -increasing 升序(按ASCII字符比较) -decreasing 降序(按ASCII字符比较) -command command TCL自动利用command 命令把每两个元素一一比较,然后给出排序结果。11 split命令: 语法：split string ?splitChars? 把字符串string按分隔符splitChars分成一个个单词，返回由这些单词组成的串。如果splitChars 是一个空字符{}，string被按字符分开。如果splitChars没有给出,以空格为分隔符。例： % split "how.are.you" . how are you % split "how are you" how are you % split "how are you" {} h o w { } a r e { } y o u12 join命令 语法:join list ?joinString? join命令是命令的逆。这个命令把list的所有元素合并到一个字符串中，中间以joinString分开。缺省的joinString是空格。例： % join {h o w { } a r e { } y o u} {} how are you % join {how are you} . how.are.you