如何在不执行TCL脚本的前提下获取所有变量名？

要在不直接source脚本到全局环境的前提下获取脚本中的变量名，有两种可行方案，分别适用于不同场景：

方案一：临时命名空间隔离执行（推荐，最可靠） #

如果你的脚本执行时没有不可接受的副作用（比如修改文件、调用外部命令等），可以利用Tcl的命名空间特性，将脚本source到临时命名空间中，既让解释器正确解析所有变量定义，又不会污染全局环境：

# 创建临时命名空间
namespace eval temp_script_ns {
    # 在临时命名空间内source目标脚本
    source "your_target_script.tcl"
}

# 提取临时命名空间中的所有全局变量名
set script_var_list [namespace eval temp_script_ns {info globals *}]

# 清理临时命名空间，完全隔离影响
namespace delete temp_script_ns

# 遍历变量名，unset全局环境中的同名变量
foreach var $script_var_list {
    if {[info exists ::$var]} {
        unset ::$var
    }
}

这个方案能捕获所有通过set、array set、incr等方式定义的变量，包括命名空间变量（如果脚本里有定义的话），完全依赖Tcl解释器的语法解析，不会遗漏或误判。

方案二：静态解析脚本文本（无执行副作用） #

如果脚本执行会产生你不想触发的副作用，只能通过静态解析脚本内容来提取变量名。但这种方法只能处理静态定义的变量（比如直接写set varName value），无法捕获动态生成的变量名（比如set [generateVarName] 123）：

# 读取脚本内容
set script_file "your_target_script.tcl"
set fd [open $script_file r]
set script_content [read $fd]
close $fd

set script_var_list [list]

# 匹配普通set定义的变量
set set_pattern {^\s*set\s+([^\s]+)\s+}
# 匹配array set定义的数组变量
set array_pattern {^\s*array\s+set\s+([^\s]+)\s+}

foreach line [split $script_content "\n"] {
    # 捕获普通变量
    if {[regexp $set_pattern $line -> var]} {
        # 处理可能的命名空间变量（比如::ns::var）
        lappend script_var_list $var
    }
    # 捕获数组变量
    if {[regexp $array_pattern $line -> arr]} {
        lappend script_var_list $arr
    }
}

# 去重并排序变量列表
set script_var_list [lsort -unique $script_var_list]

# 执行unset操作
foreach var $script_var_list {
    if {[info exists ::$var]} {
        unset ::$var
    }
}

注意事项 #

• 静态解析无法覆盖所有Tcl语法场景，比如变量在条件分支、循环中动态定义，或者通过upvar、global引用的外部变量，这种方法会遗漏。
• 若脚本中包含复杂的变量定义逻辑，优先选择方案一。

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