如何以毫秒为单位获取当前时间

Question

我正在使用TCL 8.6版本并尝试使用TCL“以毫秒为单位获取当前时间”。

我愿意得到的输出如下：使用示例时间

11:06:52.123

Answer 1

set t [clock milliseconds]
set timestamp [format "%s.%03d" \
                  [clock format [expr {$t / 1000}] -format %T] \
                  [expr {$t % 1000}] \
              ]

---

回过头来看，我会使用帮助程序来整理一下：

proc divmod {numerator divisor} {
    list [expr {$numerator / $divisor}] [expr {$numerator % $divisor}]
}

lassign [divmod [clock milliseconds] 1000] sec milli
set timestamp [format {%s.%03d} [clock format $sec -format %T] $milli]