Re: TCL Counter

diabolik@uku.co.uk <diabolik@uku.co.uk> wrote:
> Ho do I create a counter that counts between a certain range and once
> the upper limit is reached returns to 0?
> The counter will have to pad value with zeros or spaces to produce a
> field that is 8 characters in size.

proc counter {} {
   while {1} {
      for {set i 0} {$i<100000000} {incr i} {
         puts [format "%08d" $i]
      }
   }
}
counter
Received on Fri Dec 23 19:00:03 2005