Posted to tcl by dkf at Thu Oct 17 19:48:37 GMT 2013view raw
- proc Elapse {startMilliseconds} {
- set nmsecs [expr {[clock milliseconds] - $startMilliseconds}]
- return [format %.03f [expr {$nmsecs/1000.0}]]
- }
- apply {{} {
- set start [clock milliseconds]
- set fd [open dump.log]
- while {[gets $fd line] != -1} {
- if {[expr {[incr nlines] % 100000}] == 0} {
- puts "$nlines lines, [Elapse $start] seconds passed"
- }
- }
- puts "$nlines lines, [Elapse $start] seconds passed"
- }}