tcl:捕获"exec diff"的输出,返回非零值

Question

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

具体来说,我希望做一些像"catch {exec diff fileA fileB} ret"这样的事情.文件是不同的,ret值是1.我实际需要的是diff的输出,详细的差异.但我相信"捕捉{exec ...}错误"的做法并没有提供它,对吗？

有人可以建议这个任务吗？是否有tcl-builtin命令来做文件差异？(我认为可以将输出重定向到文件,然后读取文件......还有其他选择吗？)

谢谢!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输出结束时,我确实得到了"子进程异常退出".在我的情况下,我没有删除它,但它应该很容易做到.