如何tcl打印控制字符

Question

如何在同一行重复打印一些内容？ IE。一个百分比向下计数器，直到某些过程完成？ 我希望在 xterm 行上，百分比数字在不滚动的情况下倒计时。

如果我这样做了

puts -nonewline "10%"
puts -nonewline "9%"
puts -nonewline "8%"
puts -nonewline "7%"

我明白了：

10%9%8%7%....

看起来不对。

有什么诀窍？

谢谢， 格特

Answer 1

您希望回车将光标发送到行首：

for {set i 10} {$i>0} {incr i -1} {
    puts -nonewline [format "\r%2d%%" $i]
    flush stdout
    after 200
}; puts ""