将puts的输出同时发送到日志文件和stdout？

Question

我这样做了很多次puts "$log" "blah blah blah",puts "blah blah blah" 一次用于将其放入日志文件,一次用于将其显示到stdout.

可以用一条线或简单的方式完成,只需使用一次放置或更好的方式.

还有任何颜色代码,我们可以用来输出彩色文本,如tput在Linux中

Answer 1

如果您是自己进行输出调用的人,请创建一个过程并调用它.

proc log2OutErr {msg} {
    global log

    puts $msg
    puts $log $msg
}

如果您希望所有脚本输出都同时转到logfile和stdout,请不要在Tcl中打开日志文件,只需在启动它时将脚本输出传递给tee:tclsh script.tcl | tee logfile然后再puts转到stdout.