TCL列出运行脚本的相对路径

Question

我寻找一个保存运行tcl脚本当前路径的代码。我发现已经有一个代码，但它不起作用。

proc getScriptDirectory {} { 
    set dispScriptFile [file normalize [info script]] 
    set scriptFolder [file dirname $dispScriptFile] 
    return $scriptFolder 
} 

有没有人想法？

Answer 1

info script命令的工作原理，但只有脚本正在运行，而不是当它创建的过程正在运行时。代码运行时必须保存该值，以便稍后使用它。

# The two-argument version of [variable] initialises the variable's value 
variable dispScriptFile [file normalize [info script]] 

proc getScriptDirectory {} { 
    variable dispScriptFile 
    set scriptFolder [file dirname $dispScriptFile] 
    return $scriptFolder 
} 

这样做时，这种方式有一般不具有可变污染显著问题，因为你可以在你定义的命名空间使用一个变量，而且几乎总是当你想要这个你要定义一个命名空间。