如何让TCL的switch语句返回常量值？

好问题！你现在用expr {{val}}的方式确实有点绕——expr本来是用来做表达式计算的，硬套常量字符串只会增加不必要的括号嵌套，完全是舍近求远了。其实Tcl的switch分支本身就支持直接返回常量，根本不需要借助expr，下面给你几种更简洁的方案：

1. 直接返回裸常量字符串 #

如果你的常量是没有特殊字符（空格、$、[]、{}等）的简单字符串，直接在分支里写这个字符串就行：

set z [switch a {
    default {val}
}]

这里的原理是：Tcl中单独的字符串本身就是一个合法的脚本，脚本的返回值就是字符串本身，所以switch会把这个字符串作为分支的结果返回，最终赋值给z。

2. 用大括号包裹特殊常量 #

如果你的常量包含空格、特殊符号，或者想避免意外的变量/命令替换，用一对大括号把常量包起来就好：

set z [switch a {
    default {Hello World!}
}]

大括号在Tcl里是强引用，里面的内容会原封不动地作为返回值，非常适合纯常量场景。

3. 用双引号包裹（按需选择） #

如果常量里需要包含变量替换（虽然你问的是常量，但偶尔可能有这种需求），可以用双引号：

set fixed_val "static"
set z [switch a {
    default "This is $fixed_val text"
}]

不过如果是完全的静态常量，优先用大括号更安全。

为什么原来的expr方法不恰当？ #

你原来写的expr {{val}}，本质是让expr计算一个字面量字符串：外层的{}是Tcl的引号，内层的{}是expr用来标记字面量的语法，这相当于多做了一层无意义的表达式计算，既增加了代码复杂度，又没有任何额外收益，完全没必要。

总结一下：直接在switch的分支脚本里写你要返回的常量就是最优解，根据常量的内容选择裸写、大括号或双引号包裹，比用expr简洁清晰得多。

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