unix - 获取脚本所在的目录

Question

我正在写一个 Tcl 脚本，我想获取保存脚本的目录(不是当前目录，所以 $env(PWD) 是不是我想要的)。

这可能吗？

Answer 1

当脚本直接执行时，您使用:

set theDir [file normalize [file dirname [info script]]]

这必须在脚本的顶层或namespace eval中运行(你应该使用variable而不是出于技术原因设置)。特别是，它不应放在过程中并稍后调用，因为到那时 info script 调用将返回其他内容。因此，典型的包实现脚本可能如下所示:

namespace eval ::samplePackage {
    variable theDir [file normalize [file dirname [info script]]]
    source $theDir/foo.tcl
    source $theDir/bar.tcl
    load $theDir/grill[info sharedlibextension]
    package provide samplePackage 1.0
}

如果这是主应用程序，您还可以使用 $::argv0 代替 info script。这在您的代码运行期间不会改变(除非您手动设置它)。