TCL如何将proc中puts输出的赋值语句在主脚本作用域执行生效

TCL执行过程输出语句到上层作用域的解决方案 #

你可以根据是否能修改procs.tcl选择以下任意一种方案：

方案1：直接修改my_proc在上层作用域执行赋值（最优） #

利用TCL内置的uplevel命令，直接在调用者的作用域执行目标语句，不需要依赖输出捕获：
修改procs.tcl代码如下：

proc my_proc {args} {
  ...args parsing...
  ...use args to get $some_value...
  # uplevel 1 表示在调用当前proc的上一层作用域执行代码
  # 用list包裹语句可以避免变量值含特殊字符时的解析错误
  uplevel 1 [list set b $some_value]
}

main.tcl无需额外修改，调用my_proc后即可直接使用$b变量。

如果需要保留输出set b $some_value的逻辑，也可以同时保留puts语句，不影响赋值逻辑。

方案2：捕获proc输出再在上层作用域执行（无需修改procs.tcl） #

如果无法修改procs.tcl的代码，可以在main.tcl中捕获my_proc的输出结果，再通过uplevel执行该语句：
修改main.tcl代码如下：

...
set a 0
source procs.tcl
# 捕获my_proc的输出并在当前作用域执行
uplevel 1 [my_proc -send_var $a]
...use $b...
...

如果输出的语句包含复杂特殊字符，可以搭配eval处理，绝大多数场景下uplevel已经可以满足需求。

方案3：通过变量引用直接赋值 #

如果只是需要给上层作用域传递变量值，不需要生成set语句，也可以用upvar绑定上层作用域的变量直接赋值，性能更高：
修改procs.tcl代码如下：

proc my_proc {args} {
  ...args parsing...
  ...use args to get $some_value...
  # 绑定上层作用域的b变量到当前proc的target_b变量
  upvar 1 b target_b
  set target_b $some_value
  puts "set b $some_value"
}

调用后上层作用域的b变量会被直接赋值。

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