if-statement - 下面的 tcl 代码会做什么？

Question

我有以下行:

if {[catch {exec fgrep E- $log_file} errors]} {
    set errors ""
}

这是做什么的？

• catch 命令是否将 fgrep 在日志文件中找到的所有行放入errors？
• 它是否只会将 fgrep 抛出的错误放在那里，例如，如果文件不存在？
• if什么时候考，什么时候不考？

Answer 1

让我们从内到外解构您的代码。

exec fgrep E- $log_file

这对名称存储在变量 log_file 中的文件运行 fgrep E-。如果 exec 有句法问题(谢天谢地，没有)，fgrep 程序有句法问题(我觉得没问题)，它会产生 Tcl 错误，如果 $log_file 不存在，或者没有匹配项。如果没有错误，它会返回 grepping、warts 和所有的输出。

catch {exec fgrep E- $log_file} errors

这会在捕获错误的环境中运行上面的代码，并返回是否发生错误(正式地，它在没有错误时返回 0，在有错误时返回 1，以及其他不常见类型的代码在这种情况下不会发生的异常返回)。如果没有发生错误，exec 的正常结果存储在 errors 变量中，如果有 ，则错误消息存储在 errors 中>是一个错误。请注意，可以通过全局 errorCode 变量区分错误类型，但您不必这样做(通常也没有必要)。

if {[catch {exec fgrep E- $log_file} errors]} {
    set errors ""
}

这将上面 catch 的结果用作 bool 值:如果发生错误，它会计算主体(将 errors 变量设置为空字符串)，否则它不会做任何额外的事情。

总结

总的来说，您的代码将 errors 设置为 log_file 中文件中以换行符分隔的行，并设置 errors 否则为空字符串。