file - 如何将一系列命令的输出重定向到 stdout 和 Tcl 中的文件？

Question

我正在寻找一种优雅的方法，将输出从一系列命令重定向到 stdout，并在可能的情况下在 Tcl 中同时重定向到文件，而不是执行如下操作。

例如两步法

proc foo {} { return "bar" }
puts "I call foo"
foo

set i_f [open myfile w]
puts $i_f "I call foo"
exec echo [foo] >> myfile

如果我先写入然后打印该文件的内容，则读取和打印内容会花费更多时间，所以我想知道是否有一种优雅的方法可以同时写入两个 channel (写入一个 channel )打开文件进行写入并输出到标准输出)。

此外，我想知道是否可以暂时将当前的stdout更改为另一个 channel ，然后将stdout更改回原来的stdout。

有多个 Tcl 过程调用，所有调用都输出到 stdout(通过普通的 put 或通过 Tcllib 的报告包)。

我不想检查和更改每个 Tcl 过程的内容，而是将它们输出到另一个 channel 以写入文件，然后将标准输出更改为原始标准输出。

Answer 1

您可以创建一个新的puts命令来替换原来的puts。在新命令中，将消息放入标准输出和文件。

rename puts _puts  ;# Replace Tcl build-in puts
set chan_log [open log_file w]
# Create a new puts command
proc ::puts { msg } {
  ::_puts $msg
  ::_puts $::chan_log $msg
}

puts "Hello, world!"
close $chan_log