启动 tcl 并复制当前环境

您可以创建一个新的 reter，提供所需的所有需要的进程、变量等（或其中的脚本），并在其中运行代码。销毁它，并根据需要多次重复新的。这个想法的快速而肮脏的例子：interpsource

#!/usr/bin/env tclsh

# Import a user-defined proc into the given interpreter
proc importProc {interp procName} {
    $interp eval [list proc $procName [info args $procName] [info body $procName]]
}

# Import the variable into the given interpreter.
# Name should be fully qualified; ::x not x for global variables
proc importVar {interp name} {
    $interp eval [list set $name [set $name]]
}

proc buildDemo {} {
    set i [interp create]
    importProc $i example
    importVar $i ::foo
    return $i
}

set foo bar

proc example {} {
    global foo
    puts "Example: $foo"
}


set i [buildDemo]
set foo baz
$i eval example ;# prints bar
interp delete $i