利用Digest::MD5计算文件的MD5值

#! c:\perl\bin\perl.exe

use strict;
use warnings;use Digest::MD5;my $md5 = Digest::MD5->new();
open ( HFILE, " ) or die ("Can't open:$!");
binmode( HFILE); #这一行也不能少

$md5->addfile( *HFILE); #不要忘记*号哦

close( HFILE);
print "\n". $md5->hexdigest(). "\n";
=======================================附 求字符串的写法
#! c:\perl\bin\perl.exe

use strict;
use warnings;use Digest::MD5;my $md5 = Digest::MD5->new();
$md5->add( "Hello, I am ixigua." );
print "\n". $md5->hexdigest(). "\n";