如何从TCL中的键盘输入数组？

您需要编写

arr（$index）

而不是

arr（index）

，如中所示

can't read "arr(2)": no such element in array
    while executing
"puts $arr($index)"

否则，您的所有输入将以数组成员

arr（index）

结束，而不是

arr（0）

，

arr（1）

等

can't read "arr(2)": no such element in array
    while executing
"puts $arr($index)"

set arr($index) [gets stdin]