如何使TCL脚本遇错误后继续执行？并实现错误时变量自动赋值

问题场景 #

现有不可修改的file1.tcl，内容如下：

set a "MY_TEST"
set b [format "%.1f" [expr $a-3]]
puts $b
puts $a

通过file2.tcl调用该文件：

catch { source file1.tcl } result

执行时会因expr $a-3（字符串与数值运算）报错终止，需求：

• 显示错误信息
• 继续执行到puts $a
• 错误时自动将b设为0

解决方案 #

由于file1.tcl不可修改，我们可以在file2.tcl中读取原脚本内容，逐行执行并针对错误做处理：

# 读取file1.tcl的所有代码行
set fd [open "file1.tcl" r]
set script_lines [split [read $fd] "\n"]
close $fd

# 逐行执行脚本内容
foreach line $script_lines {
    # 跳过空行
    set trimmed_line [string trim $line]
    if {$trimmed_line eq ""} {
        continue
    }
    # 执行当前行并捕获错误
    if {[catch {uplevel #0 $line} error_msg]} {
        # 打印错误信息
        puts "执行错误: $error_msg"
        # 判断是否为设置b的行，是则将b设为0
        if {[string match "set b *" $trimmed_line]} {
            set b 0
            puts "已自动将变量b设置为0"
        }
    }
}

说明 #

• uplevel #0 $line：确保代码在全局命名空间执行，和直接source的效果一致
• 逐行catch可以在某一行出错时，不中断后续代码的执行
• 通过字符串匹配判断是否是设置b的行，出错时自动赋值为0

执行该file2.tcl后，会输出：

执行错误: expected floating-point number but got "MY_TEST"
已自动将变量b设置为0
0.0
MY_TEST

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