在Perl中获取文件校验和的紧凑方式

我正在寻找在Perl中获取文件校验和的方法,但不是通过执行系统命令cksum – 想在Perl本身中执行它,因为脚本需要在UNIX和 Windows之间移植. cksum< FILENAME> | awk'{print $1}’适用于UNIX,但显然不适用于Windows.我已经探索了 MD5,但看起来像获取文件句柄似乎是必要的,并且通常它似乎不是一种非常紧凑的方式来获取该数据(一线优选).

有没有更好的办法？

解决方法

根据您提供的模块,有三种不同的方式：

use Digest::MD5 qw(md5_hex);

use File::Slurp;
print md5_hex(read_file("filename")),"\n";

use IO::All;
print md5_hex(io("filename")->all),"\n";

use IO::File;
print md5_hex(do { local $/; IO::File->new("filename")->getline }),"\n";

不是完全一线但非常接近.

将Digest :: MD5替换为您想要的任何哈希算法,例如： SHA1.

IO :: File是核心,应该随处可用,但这是我个人最不喜欢的解决方案.无论如何,它的工作原理.