[Perl] MD5 用法

1. # Functional style
2.  use Digest::MD5 qw(md5 md5_hex md5_base64);
3.  
4.  $digest = md5($data);
5.  $digest = md5_hex($data);
6.  $digest = md5_base64($data);
7.  
8.  # OO style
9.  use Digest::MD5;
10.  
11.  $ctx = Digest::MD5->new;
12.  
13.  $ctx->add($data);
14.  $ctx->addfile(*FILE);
    
15.  
16.  $digest = $ctx->digest;
17.  $digest = $ctx->hexdigest;
18.  $digest = $ctx->b64digest;
    
    转：