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