分类：
2011-03-25 11:47:05
TCL提供time命令来衡量TCL脚本的性能：
time script ?count? 这个命令重复执行script脚本count次。 再把花费的总时间的用count除，返回一次的平均执行时间，单位为微秒。如果没有count参数，就取执行一次的时间。
实例：
proc timetst1 {lst} {
set x [lsearch $lst "25000"]
return $x
}
proc timetst2 {array} {
upvar $array a
return $a(25000);
}
# Make a long list and a large array.
for {set i 0} {$i < 500001} {incr i} {
set array($i) $i
lappend list $i
}
puts "Time for list search: [ time {timetst1 $list} 10]"
puts "Time for array index: [ time {timetst2 array} 10]"
执行结果：
Time for list search: 1500.0 microseconds per iteration
Time for array index: 0.0 microseconds per iteration
