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 
} 

這樣做時，這種方式有一般不具有可變污染顯著問題，因爲你可以在你定義的命名空間使用一個變量，而且幾乎總是當你想要這個你要定義一個命名空間。