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

There's more than one way to do it!
https://metacpan.org http://perlmonks.org
头像
PerlMonk
渐入佳境
渐入佳境
帖子: 51
注册时间: 2016年09月19日 10:20
拥有现金: 锁定
Has thanked: 4 times
Been thanked: 3 times
联系:

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

帖子 #1 PerlMonk » 2017年01月17日 16:28

代码: 全选

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 自带

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

回到 “Perl”

在线用户

用户浏览此论坛: 没有注册用户 和 1 访客