Question

求tcl脚本语言计时器

最近需要用TCL脚本语言编写一个计时器程序，用来计算原先已有的TCL程序中两个命令执行的结束时间。具体来说，就是一个命令激发计时器。另外一个命令结束计时，并在屏幕上显示时间，时间的最小单位是ms.请高手指点。非常感谢！
或者谁能提供我TCL语言的命令集，或者有没有什么命令是显示当前时间，而且要能显示到毫秒的。

Answer 1

时间精确到ms可以用clock clicks -milliseconds。比如你第一个命令用一次clock clicks -milliseconds把值赋给a，第二个命令再用一次clock clicks -milliseconds把值赋给b，然后用$b-$a就是你要的计时的时间，以ms为单位。显示当前时间是clock format [clock scan now] -f %c，不过时间单位只能到秒。

举个例子说明：
proc milliseconds {} {
set a [clock clicks -milliseconds]
after 100
set b [clock clicks -milliseconds]
puts "[expr $b-$a]"
}

此时运行结果就是after的100ms。