如何在Tcl脚本执行时启动新tclsh并复制当前运行环境？

当然可以实现，这里提供两种实用方案，分别对应独立进程的tclsh和进程内隔离的子解释器，按需选择：

1. 启动独立tclsh进程（完全隔离） #

要让新的tclsh进程继承当前脚本的环境，核心是把当前的全局变量、自定义命令序列化为Tcl代码，传递给新进程执行。示例代码如下：

# 导出非内置全局变量为赋值语句
set env_code ""
foreach var [info globals] {
    # 跳过Tcl系统内置变量
    if {![string match "tcl_*" $var] && $var ne "env"} {
        append env_code "set $var [list [set $var]]\n"
    }
}

# 导出自定义过程的定义
foreach proc_name [info procs] {
    # 跳过基础内置过程
    if {[lsearch -exact {puts set foreach info proc} $proc_name] == -1} {
        append env_code "proc $proc_name [info args $proc_name] [info body $proc_name]\n"
    }
}

# 启动新tclsh，先执行环境初始化代码，再进入交互模式
exec tclsh << $env_code

运行这段代码后，会弹出一个全新的tclsh交互窗口，里面已经包含了原脚本的变量和自定义过程，你可以随意测试，完全不会影响原脚本的运行状态。

2. 创建进程内子解释器（轻量隔离） #

如果不需要单独的进程，只是想要一个隔离的测试环境，可以用Tcl内置的interp命令创建子解释器，复制当前环境后进入交互模式：

# 创建子解释器实例
set slave_interp [interp create]

# 复制全局变量到子解释器
foreach var [info globals] {
    if {![string match "tcl_*" $var] && $var ne "env"} {
        $slave_interp eval "set $var [list [set $var]]"
    }
}

# 复制自定义过程
foreach proc_name [info procs] {
    if {[lsearch -exact {puts set foreach info proc interp} $proc_name] == -1} {
        $slave_interp eval "proc $proc_name [info args $proc_name] [info body $proc_name]"
    }
}

# 启动子解释器的交互模式
$slave_interp eval {
    puts "进入子解释器交互模式，输入exit返回原脚本"
    while {1} {
        puts -nonewline "% "
        flush stdout
        set cmd [read stdin]
        if {$cmd eq "exit\n"} break
        if {[catch {eval $cmd} result]} {
            puts "错误: $result"
        } else {
            puts $result
        }
    }
}

# 用完可以销毁子解释器
interp delete $slave_interp

这种方式更轻量，子解释器和原脚本在同一进程内，但变量、命令完全隔离，修改子解释器的内容不会影响原脚本。

注意：如果你的环境包含通道、命名空间、自定义对象等复杂元素，上面的基础示例需要针对性扩展来处理这些内容。

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