的Tcl訪問數組的鍵在另一個文件

Question

我在主腳本的工作是發酸一個文件，例如 foo.tcl 在foo.tcl聲明，我們有一些array變量聲明 如

array set foo { 
     "john" "doe" 
     "alpha" "beta" 
    } 

在主腳本我們試圖使用數組的密鑰訪問該值

source foo.tcl 
set key "john" 
puts ${::foo($key)} ;# can't read "::foo($key)": no such element in array 
puts ${::foo(john)} ;# not giving error 

如何訪問將動態密鑰傳遞給數組？

Answer 1

您可以使用

puts $::foo($key) 

在括號，替換不會發生。

Answer 2

你也可以使用：

puts [set ::foo($key)]