列表是Tcl的基本可用数据类型之一。它是用于表示项目的有序集合。它可以包括不同类型的在同一列表的项目。此外，一个列表可以包含另一个列表。
需要注意的一个重要的事情是，列表表示为完全串并处理在需要时，形成的各个项目。所以要避免大的列表，在这种情况下，可使用数组代替。
列表的一般语法如下。
| 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
追加项目到列表的语法如下。
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
列表长度的语法如下。
llength listName
例如，列表长度如下例所示。
| #!/usr/bin/tclsh |
| set var {orange blue red green} |
| puts [llength $var] |
4
用于选择在指定索引的列表项如下。
lindex listname index
例如，列表索引项目如下所示。
| #!/usr/bin/tclsh |
| set var {orange blue red green} |
| puts [lindex $var 1] |
当执行上面的代码，产生以下结果：
blue
在列表特定索引插入项目的语法如下。
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 |
用于替换列表项以特定索引的语法如下。
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
用于设置列表项在特定索引下面的语法给出。
lset listname index value
例如设置列表项的索引具体如下。
| #!/usr/bin/tclsh |
| set var {orange blue red green} |
| lset var 0 black |
| puts $var |
black blue red green
复制值到变量的语法如下。
lassign listname variable1 variable2.. variablen
例如，用于将列表到变量如下。
| #!/usr/bin/tclsh |
| set var {orange blue red green} |
| lassign $var colour1 colour2 |
| puts $colour1 |
| puts $colour2 |
orange blue
排序列表的语法如下。
lsort listname
进行列表的排序如下例子。
| #!/usr/bin/tclsh |
| set var {orange blue red green} |
| set var [lsort $var] |
| puts $var |
blue green orange red
