来自值的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

您可以使用

String

在括号内，取代不会发生。

Answer 2

您也可以使用：

puts [set ::foo($key)]