如何在Tcl中设置、获取并输出名称含字符串与变量的变量？

这个问题在Tcl里挺常见的，我来给你拆解下原因和解决方案～

首先得说清你原来的写法为什么无效：Tcl的变量替换规则是，当你写$b$i时，它会先把$b当成一个单独变量（没定义的话就是空值），再拼接上$i的值，而不是把b$i作为一个完整的变量名解析。所以你写set a$i $b$i时，右边其实不是$b0，而是$b的值加0，自然达不到预期效果。

下面给你几种可行方案，按推荐程度排序：

1. 优先使用数组（最推荐） #

Tcl的数组天生就是用来处理这种带索引的变量场景的，完全不用纠结变量名拼接，代码直观又好维护：

set b(0) 0
set i 0
set a($i) $b($i)
puts $a($i) ;# 输出0

如果是在循环里，比如for {set i 0} {$i < 5} {incr i}，直接用a($i)和b($i)就能轻松遍历，比动态拼接变量名舒服太多。

2. 使用set命令的间接引用 #

如果非要用单个变量而不是数组，可以利用set的特性：当set只传一个参数时，会返回该变量的值。这样就能动态获取目标变量的值，再赋值给新变量：

set b0 0
set i 0
set a$i [set b$i] ;# 先通过set b$i拿到b0的值0，再赋值给a0
puts [set a$i]     ;# 通过set a$i拿到a0的值输出

这里set b$i会先把$i替换成0，变成set b0，进而返回b0的值；同理set a$i会返回a0的值。

3. 先拼接变量名再操作 #

如果你觉得上面的写法不够直观，可以先把完整变量名拼接出来，再用这个字符串操作变量：

set b0 0
set i 0
set var_a "a$i" ;# 拼接出变量名a0
set var_b "b$i" ;# 拼接出变量名b0
set $var_a [set $var_b] ;# 给a0赋值为b0的值
puts [set $var_a]       ;# 输出a0的值

这种写法可读性更强，尤其是变量名复杂的时候，逻辑一目了然。

内容的提问来源于stack exchange，提问作者Featurea