如何在Tcl中用puts实现类似Bash的深层变量间接引用？

首先要明确：Tcl的puts命令和Bash的echo有本质差异——Bash的反引号会捕获echo的标准输出作为字符串，而Tcl的命令替换[cmd]取的是命令的返回值，puts的返回值是空字符串，不是它打印的内容。这是你之前尝试失败的核心原因。

要实现用puts完成深层变量间接引用，你需要先捕获puts的输出，再把这个输出作为变量名来取值。Tcl 8.6及以上可以用chan capture命令捕获标准输出，结合eval完成解析。

示例1：a=b; b=5 的场景 #

set a b; set b 5
# 用chan capture捕获puts $a的输出（即"b"），再通过eval解析$b
eval puts \$[chan capture {puts $a}]

执行后会输出5，符合预期。

解析过程： #

1. chan capture {puts $a} 执行puts $a，捕获输出的字符串b，作为这个命令的返回值；
2. \$ 是转义的美元符号，和前面的返回值拼接成$b；
3. eval 将拼接后的puts $b作为脚本执行，最终输出b变量的值5。

示例2：A$n 的场景 #

set n 3; set A$n 15
# 捕获puts A$n的输出（即"A3"），再解析$A3
eval puts \$[chan capture {puts A$n}]

执行后会输出15。

解析过程： #

1. chan capture {puts A$n} 执行puts A$n，$n被替换为3，输出A3并被捕获，作为返回值；
2. 拼接成$A3，eval执行puts $A3，输出变量A3的值15。

为什么你之前的代码出错？ #

你写的eval {puts [puts \$$a]}，问题在于：

1. 大括号{}会阻止外层的变量替换，\$$a在大括号内会被保留为$a；
2. 即使eval内部执行puts $a输出b，[puts $a]的返回值还是空字符串，外层puts最终只会输出空，而非你期望的5。

内容的提问来源于stack exchange，提问作者László Szilágyi