我如何从 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) 等

How do i input an array from the keyboard in TCL?