定期運行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 

預期的行爲是每一秒鐘都會有一個新的輸出，直到$結束== $屋頂。但是，在運行此腳本後，控制檯窗口忙於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 

如果你寫了多條線路，默認的緩存將刷新標準輸出，當它遇到一個換行符，但你永遠不寫新隊。