【TCL语言-列表及相关函数】

1、列表是元素的有序集合，
2、各个元素可以是任何字符串，每个元素由空格、制表符或换行符隔开，
3、在使用时通常用花括号将列表中的所有元素括起来。

1、创建 列表

列表的一般语法如下。

set listName { item1 item2 item3 .. itemn }
# or
set listName [list item1 item2 item3]
# or 
set listName [split "items separated by a character" split_character]

一些例子如下面给出。

#!/usr/bin/tclsh

set colorList1 {red green blue}
set colorList2 [list red green blue]
set colorList3 [split "red_green_blue" _]

puts $colorList1
puts $colorList2
puts $colorList3


当上述代码被执行时，它会产生以下结果。
red green blue
red green blue
red green blue

2、列表 增加元素

追加项目到列表的语法如下。

append listName split_character value
# or
lappend listName value

一些例子如下面给出。

#!/usr/bin/tclsh

set var orange
append var " " "blue"
lappend var "red" 
lappend var "green" 
puts $var

当上述代码被执行时，它会产生以下结果
orange blue red green

3、列表 长度

列表长度的语法如下。

llength listName

例如，列表长度如下例所示。

#!/usr/bin/tclsh

set var {orange blue red green}
puts [llength $var] 

当执行上面的代码，产生以下结果
4

4、列表 索引

用于选择在指定索引的列表项如下。

lindex listname index

例如，列表索引项目如下所示。

#!/usr/bin/tclsh

set var {orange blue red green}
puts [lindex $var  1]

当执行上面的代码，产生以下结果：
blue

5、获取列表索引值之间的元素

语法：lrange 列表 索引号1 索引号2

功能：获取列表索引值之间的元素。

示例：

lrange  listname index1 index2

#!/usr/bin/tclsh

set var {orange blue red green}
puts [lrange $var  0 2]

当执行上面的代码，产生以下结果：
orange blue red

6、列表 插入元素 索引

在列表特定索引插入项目的语法如下。

linsert listname index value1 value2..valuen

例如，在列表特定的索引插入项目如下。

#!/usr/bin/tclsh

set var {orange blue red green}
set var [linsert  $var 3 black white]
puts $var

当执行上面的代码，产生以下结果：
orange blue red black white green

7、列表 替换 索引

用于替换列表项以特定索引的语法如下。

lreplace listname firstindex lastindex value1 value2..valuen

例如用于替换列表项以特定的索引如下。

#!/usr/bin/tclsh

set var {orange blue red green}
set var [lreplace $var 2 3 black white]
puts $var

当执行上面的代码，产生以下结果：
orange blue black white

8、设置指数项目

用于设置列表项在特定索引下面的语法给出。

lset listname index value 

例如设置列表项的索引具体如下。

#!/usr/bin/tclsh

set var {orange blue red green}
lset var 0 black 
puts $var

当执行上面的代码，产生以下结果：
black blue red green

9、转换列表变量

复制值到变量的语法如下。

lassign listname variable1 variable2.. variablen

例如，用于将列表到变量如下。

#!/usr/bin/tclsh

set var {orange blue red green}
lassign $var colour1 colour2
puts $colour1
puts $colour2

当执行上面的代码，产生以下结果：
orange
blue

10、列表 排序

排序列表的语法如下。

lsort listname

进行列表的排序如下例子。

#!/usr/bin/tclsh

set var {orange blue red green}
set var [lsort $var]
puts $var

当执行上面的代码，产生以下结果：
blue green orange red

11、搜索匹配目标的元素

语法：lsearch 控制选项 列表 待搜索的元素

功能：返回待搜索元素的索引号

控制选项：

-glob 按照 string match 命令的规则匹配搜索（默认）

-regexp 按照正则表达式规则匹配搜索

-exact 严格匹配搜索

-all 返回所有匹配的索引号（默认情况只返回第一个匹配的索引号）

-inline 返回匹配的元素而非索引号

set var {orange blue red green}
puts[slsearch -all -line $var o*]
输出结果：
orange