append varName value 
append varName value value value ... 

set i "aaa" 
append i "bbb" "ccc" 
//i = aaabbbccc 

array subcommand arrayName 
array subcommand arrayName arg ... 

set a(1) 1111 
set a(2) 2222 
set a(three) 3333 

array names arrayName 

tclsh>array names a 
1 2 three 
array size arrayName 

tclsh>array size a 
3 

arrry startsearch arrayName 

array nextelement arrayName searchId 

array anymore arrayName searchId 

array donesearch arrayName searchId 

array nextelement arrayName searchId 

tclsh>array startsearch a 
s-1-a 
tclsh>array nextelement a s-1-a 
1111 
tclsh>array nextelement a s-1-a 
2222 
tclsh>array anymore a s-1-a 
1 
tclsh?array nextelement a s-1-a 
3333 
tclsh>array donesearch a s-1-a 

break命令
break 

case string in patList body ... 
case string patList body ... 
case string in {patList body ...} 
case string {patList body ...} 

case abc in {a b} {puts 1} default {puts 2} a* {puts 3} 
return 3. 

case a in { 
{a b} {format 1} 
default {format 2} 
a* {format 3} 
} 
returns 1. 

case xyz { 
{a b} 
{format 1} 
default 
{format 2} 
a* 
{format 3} 
} 
returns 2. 

catch command varName 

cd 命令（如shell）
cd dirName 

close fileId 

concat arg ... 

concat a b {c d e} {f {g h}} 
return `a b c d e f {g h}" 

continue 

eof fileId