Question

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

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

module use modulefiles
module load mymodule

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

i）

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 { [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
}

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

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

谢谢！

Answer 1

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

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

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

如果你有实际的错误信息而不是摘要“出了问题”，这确实很有帮助。

一般来说，环境变量被映射到Tcl中全局env数组的元素;他们不会成为个别的全球变量（因为滥用太多了）。此外，当谈论关于变量时，你不能从中读取它，因此不要在$前面加上它（在Tcl中它是严格读取操作）。也就是说，使用setenv很重要，因为这是关于操纵调用者的环境，而不是Tcl代码本身。

所以我们在第二次尝试时使用了变体。

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

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

Answer 3

env全局数组也可用于设置环境变量的值，最好使用:: env而不是env从0级访问它（或将其声明为global env）

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

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

3 个答案: