tcl中的数组跟c语言中不一样，没有c语言中的单变量数组，只有类似c语言中的枚举弄数组。
如：
array set name_of_array {1 2 3 4}
那么puts $name_of_array时会输出：
pt_shell> puts $name_of_array
Error: can't read "name_of_array": variable is array
        Use error_info for more info. (CMD-013)
pt_shell>                                               
提示这是ray，无法读取。
只能以以下方式输出：
[color=black]puts $name_of_array(1)[/color]
[align=left][backcolor=transparent][font=Tahoma,Helvetica,&][color=black][size=14px]puts $name_of_array(3)[/size][/color][/font][/backcolor][/align][align=left][backcolor=transparent][font=Tahoma,Helvetica,&][color=black][size=14px]即，array中的变量成对出现，分别为元素名和元素值。如果：[/size][/color][/font][/backcolor][/align][align=left][backcolor=transparent][font=Tahoma,Helvetica,&][color=black][size=14px]array set name_of_array {red yellow green blue}[/size][/color][/font][/backcolor][/align][color=black]那么：
puts $name_of_array(red)输出为yellow，如果：
[backcolor=transparent][font=Tahoma,Helvetica,]puts $name_of_array(yellow)则：[/font][/backcolor][/color]

pt_shell> puts $name_of_array(yellow)
Error: can't read "name_of_array(yellow)": no such element in array
        Use error_info for more info. (CMD-013)
pt_shell>