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

Question

我这样做很多次，如puts "$log" "blah blah blah"和puts "blah blah blah" 一个用于将其放入日志文件，一个用于显示它到标准输出。

它可以在一条线上完成，或者以简单的方式使用一个投入或以更好的方式完成。

也没有任何颜色代码，我们可以在Linux

Answer 1

如果你是一个使输出要求自己用它来输出彩色文本像tput，创建一个过程和调用来代替。

proc log2OutErr {msg} { 
    global log 

    puts $msg 
    puts $log $msg 
} 

如果你想所有脚本输出去到日志文件和stdout都不要打开Tcl的日志文件，就管你的脚本输出到tee在启动时：tclsh script.tcl | tee logfile，然后puts标准输出。