使用tcl语言抓取log中所有的warning/error

下面是一个示例 TCL 脚本，用于抓取 log 中的所有 warning 和 error 信息：

# 打开 log 文件，读取内容
set fp [open "example.log" r]
set content [read $fp]
close $fp

# 定义正则表达式
set regex {(warning|error):.*}

# 搜索匹配的内容
set matches [regexp -all -lineanchor -inline $regex $content]

# 输出匹配结果
foreach match $matches {
    puts $match
}

在上面的脚本中，首先使用 `open` 命令打开 log 文件，并将其内容读取到 `content` 变量中。然后，定义一个正则表达式 `regex`，该正则表达式用于匹配所有以 "warning" 或 "error" 开头的行。接下来，使用 `regexp` 命令搜索匹配的内容，并将结果保存到 `matches` 变量中。最后，使用 `foreach` 循环遍历 `matches` 变量，并输出每个匹配结果。

需要注意的是，上述代码只是一个示例，具体的正则表达式和文件读取方式可能需要根据 log 文件的具体格式进行调整。同时，为了避免内存溢出，对于大型的 log 文件，可能需要使用逐行读取的方式来处理。