tcl，如何通过字符串获取变量值

Question

我可以这样做：

set name john
set $name 55
puts $john

==> 55

我想做相反的事情，是否可能？

类似的东西：

set john 55
set name john
puts $$name

==> 55

tcl中有类似内容吗？

Answer 1

是的，有：

puts [set $name]