当前位置：文江博客话题详情

获取脚本所在目录

发布于 2024-12-01 22:31:26 字数 99 浏览 1 评论 0原文

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

这可能吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

ヅ她的身影、若隐若现 2024-12-08 22:31:26

当直接执行脚本时，您可以使用：

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

此必须在脚本的顶层或命名空间eval内运行（您应该在其中使用variable<出于技术原因，使用 /code> 而不是 set）。特别是，它不应该放置在过程中并稍后调用，因为此时 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。这在代码运行过程中不会改变（除非您手动设置它）。

When the script is executing directly, you use:

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

This must be run at the top level of the script or inside a namespace eval (where you should use variable instead of set for technical reasons). In particular, it should not be placed inside a procedure and invoked later because by that point the info script call will return something else. Thus, a typical package implementation script might look like this:

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
}

If this is the main application, you can also use $::argv0 in place of info script. That will not change throughout the run of your code (unless you manually set it).

回复收藏 0 原文

青朷 2024-12-08 22:31:26

使用信息脚本与文件目录名

回复收藏 0 原文

樱娆 2024-12-08 22:31:26

我对 tcl 不太了解（不再）

你会得到脚本名称 $argv0

我只需应用函数/实用程序 realpath ，然后dirname 获取其目录

回复收藏 0 原文

原野 2024-12-08 22:31:26

file normalize [file dirname [info script]]

如果您通过相对符号链接调用脚本，则无法可靠地工作。我用它来缓解可能的问题：

proc script_dir {} {
    set r [info script]
    if {![catch {file link $r} symlink]} {
        set r [file join [file dirname $r] $symlink]
    }
    return [file dirname [file normalize $r]]
}

file normalize [file dirname [info script]]

won't work reliably if you call a script through a relative symlink. I use this to mitigate possible problems:

proc script_dir {} {
    set r [info script]
    if {![catch {file link $r} symlink]} {
        set r [file join [file dirname $r] $symlink]
    }
    return [file dirname [file normalize $r]]
}

回复收藏 0 原文

~没有更多了~