perl 的md5函数应用

下面方法输出相同

#!perl -w

use strict; use Digest::MD5; use Digest::MD5 qw(md5_hex); print "Digest is ",md5_hex("01232131231fddfsd"),"n"; my $md5 = Digest::MD5->new; my $Line = "01232131231fddfsd"; $md5->add($Line); print "$Line: ",$md5->clone->hexdigest,"n";? print $md5->hexdigest,"n"; $Line = "01232131231fddfsd1"; $md5->add($Line); print "$Line: ","n";