Posted to tcl by kbk at Sat Nov 24 17:52:37 GMT 2012view raw

  1. array set x {1,1 fred 1,2 barney 1,10 betty 1,11 wilma}
  2. set l {}
  3. foreach k [array names x] {
  4. lappend l [split $k ,]
  5. }
  6. foreach pair [lsort -integer -index 0 \
  7. [lsort -integer -index 1 $l]] {
  8. set k [join $pair ,]
  9. puts [list x($k) = $x($k)]
  10. }