使用 tcl 脚本中的 diff 命令捕获错误“子进程异常退出”

Question

在 tcl 脚本中，我使用 diff 命令逐行比较文件

if {[catch {eval exec "diff /tmp/tECSv2_P_HTTP_XHDR_URL_FUNC_12.itcl /tmp/tempReformat"} results]} {

    puts "$results"
}

diff 命令的输出已正确获得，但它捕获错误“子进程异常退出”

输出：

==>tclsh diffUsingScript

992c992
<             fail "Redirection is not reflected in css messages"
---
>         fail "Redirection is not reflected in css messages"
child process exited abnormally

那么，由于获得此错误，所以出了什么问题。我希望 diff 操作在我的 tcl 脚本中没有错误

Answer 1

来自我的 diff(1)：“如果输入相同，则退出状态为 0，如果不同，则退出状态为 1，如果出现问题，则退出状态为 2。”

由于非零返回是 shell 脚本中报告错误的常用方式，因此 tcl 和 diff 在返回结果的含义上存在分歧。编写 shell 脚本来了解两个文件是否与返回值不同可能真的很方便，但我没有看到任何机制可以从联机帮助页中禁用它。 （我宁愿使用 cmp -q 来获取两个文件是否不同，不确定为什么 diff 人员做出了他们所做的决定。）

但是您可以通过附加 <代码>; true 符合您的命令。

让它工作的更巧妙的方法是仅在退出代码为 2 时出错： diff foo bar ;如果 [ $? -ne 2 ]；那么正确；否则为假； fi;

在每次测试后检查不同文件名的结果并 echo $? 以查看哪些文件返回 0（来自 true ）以及哪些返回 1 （来自 false）。

Answer 2

在 Tcl 中处理这个问题的方法是：

set rc [catch {exec diff f1 f2} output]
if {$rc == 0} {
    puts "no difference"
} else {
    if {[lindex $::errorCode 0] eq "CHILDSTATUS"} {
        if {[lindex $::errorCode 2] == 1} {
            puts "difference"
            # show output without "child process exited abnormally" message
            puts [string replace $output end-31 end ""]
        } else {
            puts "diff error: $output"
        }
    } else {
        puts "error calling diff: $output"
    }
}

参见 Tcl Wiki exec 页面上的讨论。