TCL环境检查
Posted 蛋白痴
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了TCL环境检查相关的知识,希望对你有一定的参考价值。
set w [open 1.txt w+]
foreach a [info var] {
if { [llength [array name $a]]==0 } {
puts $w $a:[set $a]
}
}
foreach a [info var] {
if { [llength [array name $a]]!=0 } {
puts $a
foreach b [array name $a] {
puts $w ${a}($b):[set ${a}($b)]
}
}
}
close $w
以上是关于TCL环境检查的主要内容,如果未能解决你的问题,请参考以下文章