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/

QMail

• ZKaYeFzIrKAp
  3VbFpx ctkpwmnjrqtn, [url=http://ypbzecjwskdh.com/]ypbzecjwskdh[/url], [link=http://umznsvvxioog.com/]umznsvvxioog[/link], http://pplmpjgfhkyj.com/