エラーを回避する方法：そのような環境変数はありませんか？

Question

私の環境では環境変数を使用していますが、環境変数が存在しない場合は、NAME_ENV_VARというエラーメッセージが表示されます。そのような変数はありません。 は例えば、ライン

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

catchエラー、あなたはそれで何かを（例えば値フォールバック後のためにそれを記録し、または使用）とスクリプト

例えばを進めることができます

if {[catch {myeval $env($File)} result]} { 
    lappend log $result 
} 
#other stuff 

Answer 2

あなたはinfo existsでテストした環境変数は、例えば、設定されていない場合、デフォルトを使用することができます。

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

Answer 3

[info exists $env(VAR)]を使用していない、グローバルのenv配列のような配列要素のかどうかを確認するには。代わりに 、あなたが使用する必要があります。

if { [ array names env VAR ] != "" } { 
    puts "\nVAR exists and its value is $env(VAR)\n" 
}