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

我正在使用TCL8.6版本，并尝试使用TCL“以毫秒获取当前时间”

我愿意得到的结果如下：使用示例时间

11:06:52.123

---

回顾这一点，我会使用一个助手程序来整理东西：

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]

---

回顾这一点，我会使用一个助手程序来整理东西：

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]

---

非常感谢，格伦！非常感谢，格伦！