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

Question

while { $index < $num } {
   set arr(index) [gets stdin]
   incr index 
}

这是我的代码。在尝试输出特定的数组值时，我收到错误说：

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

Answer 1

您需要写arr($index)而不是arr(index)，如

set arr($index) [gets stdin]

否则，您的所有输入都将以数组成员arr(index)而不是arr(0)，arr(1)等结尾。