代码: 全选
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";
此模块应该是 ActivePerl 自带
由于都是要访问文件的内容,所以当文件非常大的时候,需要很久才响应过来