Tcl控制流概念错误：遍历变量名筛选非空值运行失败的原因分析

原始代码失败原因 #

你写的foreach循环遍历的是{q1 q2 q3 q4 q5}这个字符串列表，循环变量var每次拿到的是"q1"、"q2"这类字符串本身，不是对应变量存储的值。你判断$var ne ""实际上是在判断"q1"这个字符串是不是空，永远为真，最终拼接结果是所有变量名的拼接，和预期的变量值拼接逻辑完全不符。

set实现解引用的逻辑 #

Tcl的set命令支持两种调用形式：

• 传入两个参数set 变量名 变量值：作用是给指定变量赋值，和常规编程语言的赋值语句逻辑一致
• 传入一个参数set 变量名：作用是返回指定变量存储的值，效果和$变量名的取值操作完全等价

[set $var]的解析执行顺序遵循Tcl典型的「从内向外解析替换」规则：

1. 先解析内层的$var，拿到当前循环里存储的变量名字符串，比如第一轮循环就是"q1"
2. 把解析得到的变量名作为参数传给set命令，执行set q1，返回q1变量存储的实际值，也就是你需要的"a"

这个逻辑和C语言的二级指针取值逻辑完全对应：你可以把var理解为存储了另一个变量地址的二级指针，set $var就等价于C里的*var操作，实现了间接取值的效果。你修改后的代码先把间接取到的变量值存到elem变量，再判断非空后拼接，逻辑就完全符合预期了。

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