Tcl是否支持在if条件语句内部进行变量赋值操作？

Tcl没有照搬C/JavaScript的表达式赋值语法，但可以利用自身语法特性实现完全等价的逻辑，不需要额外编写多余分支。

实现原理 #

C/JS支持条件内赋值的核心是两点：一是逻辑运算符||/&&的短路求值规则，二是赋值表达式本身会返回赋值后的值。Tcl的if命令同样遵循短路求值规则，配合set命令执行赋值后会返回变量值的特性，就可以实现相同效果。

具体实现写法 #

对应给出的C/JS示例，等价Tcl代码如下：

# 提前给val设默认值，避免boolean为真时val未定义触发报错
set val ""
if {$boolean || ([set val [func $args]] == $case1)} {
  # 执行逻辑A
} elseif {$val == $case2} {
  # 执行逻辑B
}

行为对齐说明 #

• 短路逻辑和C/JS完全一致：如果$boolean为布尔真，解释器不会计算||右侧的内容，不会调用func、也不会给val重新赋值，直接进入逻辑A分支
• 只有$boolean为假时，才会执行func给val赋值，再判断返回值是否等于case1，匹配则进入逻辑A，不匹配则走后续elseif分支判断val的值
• 不需要新增额外分支，和预期写法效果完全一致

注意事项 #

• 不要在过于复杂的判断逻辑里嵌套多层赋值，否则会明显降低代码可读性
• 如果$boolean为真的场景下后续代码需要访问val变量，一定要提前给val初始化默认值，否则会触发「变量不存在」的运行时错误

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