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
putscolorList2
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]
putsvar

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]
putsvar

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
putscolour1
puts $colour2

orange
blue

lsort listname

#!/usr/bin/tclsh

set var {orange blue red green}
set var [lsort var]
putsvar

blue green orange red