perl下MD5模块的使用

顾名思义，功能就不用解释。

例子：

#!/usr/bin/perl

use strict;
use Digest::MD5;

my $file_1 = shift || '/etc/passwd';
open( FILE, $file_1 ) or die "Can't open '$file_1': $!";
binmode(FILE);

my $md5 = Digest::MD5->new;
while () {
    $md5->add($_);
}
close(FILE);
print $md5->hexdigest, " $file_1\n";


###另外一种实现方法

my $file_2 = shift || '/etc/passwd';
open( FH, $file_2 ) or die "Can't open '$file_2': $!";
binmode(FH);

print Digest::MD5->new->addfile(*FH)->hexdigest, " $file_2\n";


输出如下：
[root@mail test]# ./md5.pl
70cd6c28d0037ad92301e07d47921c75 /etc/passwd
70cd6c28d0037ad92301e07d47921c75 /etc/passwd

如果是在shell环境下，这样输入：

[root@mail test]# cat /etc/passwd | md5sum
70cd6c28d0037ad92301e07d47921c75  -



结果完全一样，呵呵，当然是第2种方法最方便快捷了！