1

我这样做了很多次puts "$log" "blah blah blah"puts "blah blah blah" 一次将其放入日志文件,一次将其显示到标准输出。

它可以用一行或简单的方式完成,只需使用一个 put 或以更好的方式。

还有任何颜色代码可以用来输出彩色文本,就像tput在 linux 中一样

4

1 回答 1

5

如果您是自己调用输出的人,请创建一个过程并改为调用它。

proc log2OutErr {msg} {
    global log

    puts $msg
    puts $log $msg
}

如果您希望所有脚本输出到日志文件和标准输出,请不要在 Tcl 中打开日志文件,只需在启动时将脚本输出通过管道传输到teetclsh script.tcl | tee logfile : ,然后puts到标准输出。

于 2013-03-15T11:18:11.057 回答