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

Question

如果我想从Tcl脚本创建日志文件..在Tcl中有任何命令可以这么做，它需要什么软件包？

感谢您的帮助提前

Answer 1

尝试logger包Tcllib。如果你在其他语言中使用的记录系统，它应该感到非常熟悉：

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程序直接...