定期运行 TCL 脚本，结果连续

Question

我在我的一个 TCL 脚本中遇到了问题。我需要在具有终止条件的无限循环中运行它，并且在每个循环中我都需要编写一些输出。这是我使用的基本代码：

proc wr {i} {
    puts -nonewline "$i"
}

proc do {roof} {
    set end 0
    while {$end < $roof} {
        after 1000
        wr $end
        incr end
    }
}

do 10

预期的行为是每秒都会有一个新的输出，直到 $end == $roof。但是在运行此脚本后，控制台窗口会忙碌 10 秒，然后立即打印出整个输出。

感谢您的建议:)

Answer 1

问题是你没有刷新stdout。

如果您修改脚本使其刷新stdout：

proc wr {i} {
    puts -nonewline "$i"
    flush stdout
}

proc do {roof} {
    set end 0
    while {$end < $roof} {
        after 1000
        wr $end
        incr end
    }
}

do 10

它会起作用的。也可以将stdout通道的缓冲改为无，默认为line：

fconfigure stdout -buffering none

如果你写多行，默认缓冲会在遇到换行时刷新标准输出，但你永远不会写换行。