Tcl文件校验和匹配

Question

我已经在我的tcl / tk项目中实现了一个功能，其中使用fcopy将文件从Windows机器传输到VM。现在问题是同一个文件被反复复制，这是非常不必要的。

所以我必须检查目标文件夹中是否存在任何具有相同名称的文件。如果是，那么在中止复制过程之前，我必须确保文件内容不匹配。我知道check-sum可以用于此但不知道如何在TCL中实现校验和匹配。请指导。

Answer 1

哈希，校验和和加密部分中的

Tcllib具有您（可能）需要的功能。例如checksum。

Answer 2

md5示例

md5.tcl

#!/usr/bin/tclsh

package require md5

set fp [open "md5.tcl" r]
set file_data [read $fp]
close $fp

set checksum [md5::md5 -hex $file_data]
puts $checksum

输出：

64F63E82282789ACB8F9271CBF35E8B5

Answer 3

您也可以使用UNIX命令

cksum

这可以用TCL作为

调用

exec cksum <file>

checksum