在Perl中获取文件校验和的紧凑方式
发布时间：2020-12-15 21:58:03 所属栏目：大数据 来源：网络整理
导读：我正在寻找在Perl中获取文件校验和的方法,但不是通过执行系统命令cksum – 想在Perl本身中执行它,因为脚本需要在UNIX和 Windows之间移植. cksum FILENAME | awk'{print $1}’适用于UNIX,但显然不适用于Windows.我已经探索了 MD5,但看起来像获取文件句柄似乎
|
我正在寻找在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是核心,应该随处可用,但这是我个人最不喜欢的解决方案.无论如何,它的工作原理. （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |