array.tcl

TCL学习资料和源代码 希望对想学习TCL的人有帮助

array set state {
-blocksize	8192
-validate	0
-headers	{}
-timeout	0
state		header
meta		{}
currentsize	0
totalsize	0
type		text/html
body		{}
status	""
}

puts $state(-validate)

foreach {flag value} [array get state] {
puts "$flag \t $value"
}