TCL中如何获取拼接变量名对应值的算术运算实际结果

问题原因 #

你当前的写法仅执行了字符串拼接逻辑：

set val A_$Name*10

TCL默认不会自动执行两个操作：

• 将拼接得到的A_B识别为已定义的变量并提取它的数值
• 自动解析字符串中的*运算符完成算术计算
  所以最终输出的只是普通字符串A_B*10。

解决方法 #

前提：先确保A_B变量已预先赋值为数值，下文示例中我们将A_B赋值为3做演示。

方法1：分步写法（可读性更高） #

set Name "B"
set A_B 3
# 第一步：拼接得到目标变量名
set target_var "A_$Name"
# 第二步：取目标变量的值，用expr做算术计算
set val [expr {[set $target_var] * 10}]
puts $val
# 输出结果：30

方法2：嵌套命令一步实现 #

set Name "B"
set A_B 3
set val [expr {[set "A_$Name"] * 10}]
puts $val
# 输出结果：30

注意事项 #

• TCL的所有算术运算必须显式用expr命令包裹，不会自动计算字符串中的运算符
• 取动态拼接生成的变量名对应的变量值，需使用[set $动态变量名]的写法，直接写$A_$Name会被TCL识别为两个独立变量拼接，无法正确取值
• 写expr表达式时建议用大括号{}包裹内容，既可提升执行性能，也能避免多余的二次解析引发的语法错误和安全问题

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