Tcl:检查两个文件之间的相同内容

Question

我有一个用 vimscript 编写的程序，它检查两个文件是否相同。它对 diff 进行系统调用以验证它们是否不同。

我需要 Tcl 中类似的东西，但不诉诸外部命令或系统调用。我不需要知道文件之间的差异或进行比较，只需在两个文件内容相同时返回 1，如果内容不同则返回 0。

Answer 1

proc comp_file {file1 file2} {
    # optimization: check file size first
    set equal 0
    if {[file size $file1] == [file size $file2]} {
        set fh1 [open $file1 r]
        set fh2 [open $file2 r]
        set equal [string equal [read $fh1] [read $fh2]]
        close $fh1
        close $fh2
    }
    return $equal
}

if {[comp_file /tmp/foo /tmp/bar]} {
    puts "files are equal"
}