tcl - 使用 event_register_syslog 编写 tcl 脚本

Question

我是这方面的新手，但我的任务是编写一个 tcl 脚本。该脚本用于在发现 syslog system_error 时在命令行上打印一条消息“警告，检测到系统错误”。

现在我对 tcl 完全陌生，我只知道需要使用 event_register_syslog。除此之外，我完全处于黑暗中，不知道从哪里开始或从哪里开始。

没有 GUI 只需要 CLI。

任何帮助和支持将不胜感激。

Answer 1

我不想对您的问题投反对票，但实际上，您应该包含一些系统日志示例并显示更多的努力（即代码存根）或您所做的研究..但是，我了解它是什么样的不知道从哪里开始..所以这里有一些代码可以帮助您入门：

#set result variable equal to contents of syslog  
set result [exec puts syslog]

#parse syslog line by line searching for error
foreach line [string trim [split $result "\n"]] {
    #regex the error string
    if {[regexp {Whatever Error Massage may look like!}]} {
        puts "Warning, system error detected"
    }

以下是 tcl 的一些有用的正则表达式链接：

1. http://www.regular-expressions.info/tcl.html