Posted to tcl by kbk at Mon Jun 08 03:05:19 GMT 2009view raw

  1. foreach var [info vars] {
  2. if {[array exists $var]} {
  3. foreach {key value} [array get $var] {
  4. puts [list set ${var}($key) $value]
  5. }
  6. } else {
  7. puts [list set $var [set $var]]
  8. }
  9. }