tcl/tk对操作系统中未设置变量的操作技巧

    tcl/tk对操作系统中未设置变量的操作技巧    在编写脚本的过程中，需要读取操作系统中预先设置的环境变量。但是tcl对未定义变量，使用的时候，会抛出异常的。后经过试验，通过捕获异常的方法来检查环境变量是否预设。

if { [catch { [ string length $env(USERNAME) ] } conn_handle] } {
    if { [ string last  "USERNAME" $conn_handle ] >0 } {
          puts "   请设置环境变量 USERNAME ，变量 USERNAME 值为用户 QCS 登录名/n"
          exit
    }
}
在上面的程序中，当USERNAME变量未设置时，捕获的异常中会包含USERNAME字符串。否则返回的是变量USERNAME的长度，从而实现变量检测。