tcl里判断环境变量是否存在，及获取它的值的方法和例子如下：
if { [info exists ::env(HOME)] } { set value $::env(HOME) puts "HOME = $value" }
