tcl：捕获“exec diff”的输出返回非零

Question

我知道在执行可能返回非零的命令时使用 catch 是很常见的...但是在这种情况下如何获得输出？

具体来说，我想做一些类似“catch {exec diff fileA fileB} ret”的事情。文件不同，ret值为1。我实际上需要的是diff的输出，即详细的差异。但我相信“catch {exec ...} err”实践并没有提供它，对吧？

有人可以建议这项任务吗？是否有 tcl 内置命令可以进行文件比较？ （我认为可以将输出重定向到文件，然后读取该文件......还有其他选择吗？）

谢谢！ XM

Answer 1

来自我最近的一个项目：

set status [catch {exec diff $file1 $file2} result]
if {$status == 0} {
   puts "$file1 and $file2 are identical"
} elseif {$status == 1} {
   puts "** $file1 and $file2 are different **"
   puts "***************************************************************************"
   puts ""
   puts $result
   puts ""
   puts "***************************************************************************"
} else {
   puts stderr "** diff exited with status $status **"
   puts stderr "***********************************************************************"
   puts stderr $result
   puts stderr "***********************************************************************"
}

底线是，当文件不同时，状态为 1，$result 保存 diff 输出。在 diff 输出的末尾，我确实得到了“子进程异常退出”。就我而言，我还没有删除它，但应该很容易做到。