TCL:如何检查环境变量是否已设置
我正在尝试构造一个模块文件，并且我想包含一个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
}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
}iii)
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和构建模块文件的新手，所以任何帮助和建议都将非常感谢！
谢谢!
回答 3
Stack Overflow用户
发布于 2016-09-08 22:13:53
关于环境的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>"
}Stack Overflow用户
发布于 2016-05-09 01:10:43
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
}Stack Overflow用户
发布于 2016-05-07 14:58:02
如果你有实际的错误消息，而不是摘要“出了问题”，这真的很有帮助。
一般而言，在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没有任何意义(我想我们可以改变这一点，但这将是一条很长的路要走，现在对你没有任何帮助)。
https://stackoverflow.com/questions/37085392
复制相似问题
腾讯云开发者
