tcl - 如何避免错误 : No such environment variable?

Question

在我的代码中，我使用了环境变量，但如果它 (env.var) 不存在，我会收到错误消息 NAME_ENV_VAR: no such variable，并且我的脚本停止执行。
例如，在行中

 myeval $env($File)

我收到一个错误:

 can't read "env(NIKE_TECH_DIR)": no such variable
    while executing
"myeval $env($File)"
    (procedure "chooseRelevantFiles" line 39)
    invoked from within
"chooseRelevantFiles $::GlobalVars::reqStage"
(file "/vobs/tavor/src/Scripts/ReproduceBug.tcl" line 575)

如何避免此错误并继续执行我的脚本？

Answer 1

您可以使用 info exists 进行测试如果未设置环境变量，则使用默认值，例如。

if {[info exists env($File)]} {
    set filename $env($File)
} else {
    set filename /some/default/path
}
myeval $filename