如何使用tcl脚本创建日志文件

Question

如果我想从Tcl脚本创建一个日志文件..在Tcl中是否有任何命令可以执行此操作以及它需要哪些软件包？

感谢您的提前帮助

Answer 1

尝试使用Tcllib中的logger包。如果您使用其他语言的日志记录系统，它应该感觉相当熟悉：

package require logger
set log [logger::init myservice]

${log}::notice "Initialized myservice logging"
# ... code ...
${log}::notice "Ending myservice logging"

${log}::delete

默认情况下，它会记录到控制台。要登录到文件，您需要一些额外的代码，可能是这样的：

set logfile [open "myfile.log" "a"];   #### <<<< Open in APPEND mode!
proc logtofile {msg} {
    global logfile
    puts $logfile "[clock format [clock seconds]]: NOTICE: $msg"
}
${log}::logproc notice logtofile

当然，您也可以删除中间人并直接使用logtofile程序...