[Perl]获取文件的 MD5 校验值

[PerlMonk]

代码： 全选

use Digest::MD5;
 
my $filename = shift || "/etc/passwd";
open (my $fh, '<', $filename) or die "Can't open '$filename': $!";
binmode ($fh);
 
print Digest::MD5->new->addfile($fh)->hexdigest, " $filename\n";

其实我是抄这里的：https://metacpan.org/pod/Digest::MD5

此模块应该是 ActivePerl 自带

由于都是要访问文件的内容，所以当文件非常大的时候，需要很久才响应过来