TCL：如何检查环境变量是否已设置

Question

我正在尝试构建一个模块文件，并且我想包含一个 if 语句来检查是否已经设置了某些环境变量（例如 PATH、LD_LIBRAY_PATH、PYTHON_PATH...）。

我尝试了几种不同的语法选项（在此处搜索、官方文档和其他论坛之后）但是当我尝试时：

module use modulefiles
module load mymodule

我不断收到ERROR:102: Tcl command execution failed错误。以下是我尝试过的一些选项：

一世）

set myTools /path/to/my/Tools
if { info exists $LD_LIBRARY_PATH } {
    setenv LD_LIBRARY_PATH $myTools/lib:$myTool/lib64:$LD_LIBRARY_PATH
} else {
    setenv LD_LIBRARY_PATH $myTools/lib:$myTools/lib64
}

ii)

set myTools /path/to/my/Tools
if { [info exists $LD_LIBRARY_PATH] } {
    setenv LD_LIBRARY_PATH $myTools/lib:$myTool/lib64:$LD_LIBRARY_PATH
} else {
    setenv LD_LIBRARY_PATH $myTools/lib:$myTools/lib64
}

三)

set myTools /path/to/my/Tools
if { $?LD_LIBRARY_PATH } {
    setenv LD_LIBRARY_PATH $myTools/lib:$myTool/lib64:$LD_LIBRARY_PATH
} else {
    setenv LD_LIBRARY_PATH $myTools/lib:$myTools/lib64
}

检查可能已经设置的环境变量是否存在的正确语法是什么，例如在 a.cshrc或.login文件中？

如果这是一个基本问题，请道歉。我以前在 shell（主要是 csh）中做过这样的事情，但我是 TCL 和构建模块文件的新手，所以任何帮助和建议都将不胜感激！

谢谢！

Answer 1

关于 env的http://wiki.tcl.tk/1624可能包含您问题的答案。

按照其他答案中给出的提示和上面给出的 wiki 链接，我构建了以下适用于我的代码。

if { [info exists ::env(IDL_PATH)] } {
   if {![string match *<IDL_DEFAULT>* $::env(IDL_PATH)]} {
   puts stderr "Warning: ill defined IDL_PATH environment variable
   }
} else {
setenv  IDL_PATH        "<IDL_DEFAULT>"
}

Answer 2

如果您有实际的错误消息而不是摘要 \xe2\x80\x9c 出了问题\xe2\x80\x9d，这确实很有帮助。

\n\n

一般来说，环境变量env在Tcl中被映射到全局数组的元素中；它们不仅仅成为单独的全局变量（因为这可能会被过度滥用）。另外，当谈论一个变量时，您不会读取它，因此不要在它前面加上前缀$（在 Tcl 中严格来说是读取操作）。也就是说，使用setenv很重要，因为这是关于操纵调用者中的环境，而不是 Tcl 代码本身。

\n\n

因此，我们对您的第二次尝试使用了一种变体。

\n\n

set myTools /path/to/my/Tools\nif { [info exists env(LD_LIBRARY_PATH)] } {\n    setenv LD_LIBRARY_PATH $myTools/lib:$myTool/lib64:$env(LD_LIBRARY_PATH)\n} else {\n    setenv LD_LIBRARY_PATH $myTools/lib:$myTools/lib64\n}\n

\n\n

第一次尝试的问题是您需要使用方括号语法来使用 Tcl 命令的输出。第三个的问题是，这$?对 Tcl 来说根本没有任何意义（我想我们可以改变这一点，但这将是一条漫长的路要走，而且现在对你没有帮助）。

\n