我正在寻找在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是核心,应该随处可用,但这是我个人最不喜欢的解决方案.无论如何,它的工作原理.