当脚本引用本地文件时，从其他目录运行tcl脚本

Question

有两个或更多脚本 脚本A

#Script A
setenv K1 V1

脚本B

#Script B
source "script A"
# some code

当我从其位置运行脚本B时，它的工作正常 但是我需要从其他位置运行它，例如：
_＆GT; / some / other / location / #tclsh pathtoscriptB / script.tcl

给出错误
无法读取文件＆＃34;脚本A＆＃34;：没有这样的文件或目录。

注意：脚本的位置可以根据使用它的用户进行更改。

Answer 1

尝试第http://wiki.tcl.tk/1384页末尾给出的技巧 - 适用于这种情况，脚本B会这样做：

source [file join [file dirname [info script]] "script A"]