TCL, INFO exists

info exists 檢查變數是否存在.
例如 incr 指令的使用, 變數需先建立才能為變數進行加法運算. 此時可使用 info exists 先確認此變數是否存在, 再續程式.

if { ![ info exists counter ] } {
         set counter 0
} else {
         incr counter
}