如何在Tcl脚本执行期间检测环境变量的变更？

基础说明 #

Tcl内置的env全局数组仅在进程初始化时读取一次系统环境变量，运行过程中不会主动同步外部的环境变量变更——这是操作系统进程隔离的固有特性，并非Tcl的功能限制。
默认情况下，父进程修改环境变量不会主动同步到已启动的子进程，所以需要手动实现同步逻辑。

实现方案 #

1. 手动刷新环境变量 #

调用自定义的刷新函数后，即可读取到最新的环境变量值。

Unix/Linux/macOS 版本

proc refresh_env {} {
    global env
    # 读取当前进程的最新环境变量存储文件，条目以\x00分隔
    set f [open /proc/self/environ r]
    set content [read $f]
    close $f
    set env_items [split $content \x00]
    # 清空原有数组，清除已删除的环境变量残留
    array unset env
    foreach item $env_items {
        if {$item eq ""} continue
        set eq_pos [string first "=" $item]
        set key [string range $item 0 [expr {$eq_pos - 1}]]
        set value [string range $item [expr {$eq_pos + 1}] end]
        set env($key) $value
    }
}

Windows 版本

proc refresh_env {} {
    global env
    set env_items [split [exec set] \n]
    array unset env
    foreach item $env_items {
        if {[string match "*=*" $item]} {
            lassign [split $item =] key value
            set env($key) $value
        }
    }
}

使用方式：在需要读取最新环境变量的位置先调用refresh_env，后续读取env(MYVAR)即可拿到更新后的值。

2. 自动检测环境变量变更 #

针对你使用Tk的长运行场景，可以借助Tk的事件循环添加定时检测任务，不会阻塞主界面运行：

# 存储初始环境变量快照
set last_env_snapshot [array get env]

proc check_env_change {} {
    global last_env_snapshot env
    # 先刷新环境变量
    refresh_env
    set current_snapshot [array get env]
    if {$current_snapshot ne $last_env_snapshot} {
        # 此处添加环境变量变更后的自定义处理逻辑
        puts "检测到环境变量变更"
        set last_env_snapshot $current_snapshot
    }
    # 每10秒检测一次，可根据实际需求调整间隔时长
    after 10000 check_env_change
}

# 启动定时检测任务
check_env_change

注意事项 #

• 上述refresh_env实现会全量覆盖env数组，如果你有在Tcl内部手动添加的、不存在于系统环境变量的自定义项，需要调整逻辑保留这类变量。
• 定时检测的间隔不要设置过短，避免不必要的性能损耗，普通长运行Tk程序设置10~60秒的间隔即可满足需求。

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