MarkD's knowledge base for Tcl

General

• Doing something with each entry in an Array
  

  set blah ""
  foreach i [array names NS] {
      append blah "$i : $NS($i)
  "
  }

• Formatting numbers with 2 digits of precision
  set ook 9.12837172362 set blah [format "%.2f" $ook]

• How do I scrub non-digits out of an integer?
  regsub -all {[^0-9]} $varname "" varname

• Making moby.tcl
  find . -name "*.tcl" -print -exec cat {} ; > ~/moby.tcl cat /home/nsadmin/modules/tcl/utilities.tcl >> ~/moby.tcl and then replace .tcl with .tcl^J^J and replace ./tcl/ with ^J^J^J^J./tcl/