Tcl 将标准输出重定向到文件不产生输出

Question

问题是link 中回答的内容的扩展。在尝试使用它延迟打印输出时，shell 上的cat file_name 不会在使用after 的延迟时间内显示文件的内容。代码如下：

proc foo {times} { 
    while {$times >0} {
        puts "hello$times"
        incr times -1
        after 20000
        puts "hello world" 
    }
}
proc reopenStdout {file} {
    close stdout
    open $file w        ;# The standard channels are special
}

reopenStdout ./bar
foo 10

Answer 1

您正在写入的数据正在内存中缓冲，而您写入的数据不足以将内部缓冲区刷新到磁盘。在foo 的循环内添加flush stdout，或执行类似设置新打开的通道为行缓冲的操作：

proc reopenStdout {file} {
    close stdout
    set ch [open $file w]        ;# The standard channels are special
    chan configure $ch -buffering line
}

如果行缓冲不够，您可以使用chan configure 的-buffering and -buffersize 选项来获得最适合您需要的行为。