在tcl脚本中，我如何使用put将字符串同时写入控制台和文件

Question

# Prints the string in a file
puts $chan stderr "$timestamp - Running test: $test"
# Prints the string on a console
puts "$timestamp - Running test: $test"

是否有一种方法可以同时将put的输出发送到屏幕和日志文件?目前，我在我的脚本中一个接一个地有上述两行来实现这一点。

或者tcl中有其他解决方案吗?

Answer 1

使用以下过程代替puts:

proc multiputs {args} {
    if { [llength $args] == 0 } {
        error "Usage: multiputs ?channel ...? string"
    } elseif { [llength $args] == 1 } {
        set channels stdout
    } else {
        set channels [lrange $args 0 end-1]
    }
    set str [lindex $args end]
    foreach ch $channels {
        puts $ch $str
    }
}

例子:

# print on stdout only
multiputs "1"
# print on stderr only
multiputs stderr "2"
set brieflog [open brief.log w]
set fulllog [open detailed.log w]
# print on stdout and in the log files
multiputs stdout $brieflog $fulllog "3"

Answer 2

这不是我经常使用的东西，但它似乎可以工作(仅限Tcl 8.6+):

您需要通道变换tcl::transform::observe包:

package require tcl::transform::observe

打开日志文件并设置缓冲为none:

set f [open log.txt w]
chan configure $f -buffering none

注册stdout为接收方:

set c [::tcl::transform::observe $f stdout {}]

写入通道$c的任何内容现在将同时进入日志文件和stdout。

puts $c foobar

请注意，在stdout之上进行通道转换似乎更有意义，将通道转换为日志文件作为接收器，但我无法做到这一点。

文档:chan)开放的,包,把,集,tcl:变换::观察(包)