#!/usr/bin/perl 
 
use Digest::MD5; 
 
my $file = $ARGV[0]; 
open (IN, "<$file") or die "can't open $file"; 
# get a reference digest string. 
my $refhex = `md5sum $file`; 
chomp($refhex); 
print "md5sum:  $refhex\n"; 
my $md5obj = Digest::MD5->new; 
$md5obj->addfile(*IN); 
# Get the digest hex string from Digest::MD5. 
my $hexdigest = $md5obj->hexdigest; 
print "hexdig1: $hexdigest\n"; 
# Get the binary digest from Digest::MD5 
print "[calling Digest::MD5::digest]\n"; 
my $digest1 = $md5obj->digest; 
$hexdigest = $md5obj->hexdigest; 
print "hexdig2: $hexdigest\n"; 
# but the digest method seems to return the same value each time. 
my $digest2 = $md5obj->digest; 
print "[internal digest is stable call to call]\n" if $digest1 == $digest2;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Digest::MD5; 
 
my $file = $ARGV[0]; 
open (my $IN, "<$file") or die "can't open $file"; 
binmode $IN; 
 
# get a reference digest string. 
my $refhex = `md5sum $file`; 
chomp($refhex); 
print "md5sum:  $refhex\n"; 
 
my $md5obj = Digest::MD5->new; 
$md5obj->addfile($IN); 
 
# Get the digest hex string from Digest::MD5. 
my $hexdigest1 = $md5obj->hexdigest; 
print "hexdig1: $hexdigest1\n"; 
 
# Get the binary digest from Digest::MD5 
print "[calling Digest::MD5::digest]\n"; 
my $digest1 = $md5obj->digest; 
print "digest1: $digest1\n"; 
 
 
seek $IN, 0,0; 
$md5obj->reset; 
$md5obj->addfile($IN); 
 
my $hexdigest2 = $md5obj->hexdigest; 
print "hexdig2: $hexdigest2\n"; 
 
# but the digest method seems to return the same value each time. 
my $digest2 = $md5obj->digest; 
print "digest2: $digest2\n"; 
print "[internal digest is stable call to call]\n" if $digest1 eq $digest2;

my $hexdigest = $md5obj->hexdigest;  
. 
. 
. 
. 
$hexdigest = $md5obj->hexdigest;

use warnings;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Digest::MD5; 
 
# Calculate the md5 sum for a file. 
# Note, $d and $s are references to the returned binary and hex string digests, respectively. 
# 
sub getFileDigest { 
    my ($f, $d, $s) = @_; 
 
    open (my $fh, "<$f") or return -1; 
    binmode($fh); 
 
    my $md5 = Digest::MD5->new; 
    $md5->addfile($fh); 
 
    $$d = $md5->digest; 
 
    # Don't use hexdigest() after digest(). 
    $$s = ''; 
    map { $$s .= sprintf("%02x", $_) } (unpack("C*", $$d)); 
    close($fh); 
 
    return 0; 
} 
 
my $file = $ARGV[0]; 
my ($digest, $digestStr) = ''; 
 
if ( getFileDigest($file, \$digest, \$digestStr) ) { 
    print "Oops! getFileDigest() failed.\n"; 
} else { 
    # Reference MD5. 
    my $tStr = `md5sum $file`; 
    $tStr =~ tr/\r\n//d; 
    $tStr =~ s/ .*//; 
    print "md5sum:    $tStr\n"; 
 
    # Digest::MD5->digest, converted to a string inside the function. 
    print "hexdigest: $digestStr\n"; 
 
    # Same as the above, just checking that the binary digest made it 
    # back to the main program ok. 
    $tStr = ''; 
    map { $tStr .= sprintf("%02x", $_) } (unpack("C*", $digest)); 
    print "digest:    $tStr\n"; 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Digest::MD5; 
 
my $file = $ARGV[0] || die "Usage: $0 <filename>"; 
 
open my $FH, '<', $file or die "can't open '$file' $!"; 
binmode $FH; 
 
my $md5sum = (split(/\s+/, `md5sum $file`))[0]; 
 
my $md5 = Digest::MD5->new; 
$md5->addfile($FH); 
 
my $digest = $md5->digest; 
my $digestStr1; 
map { $digestStr1 .= sprintf("%02x", $_) } (unpack("C*", $digest)); 
 
my $digestStr2 = $digestStr1; 
 
print "digest: $digest\n", 
      "md5sum: $md5sum\n", 
      "hexdigest: $digestStr1\n", 
      "digeststr: $digestStr2\n";

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Digest::MD5 qw< md5 md5_hex md5_base64 >; 
 
@ARGV == 2 or die "Usage: $0 <file1> <file2>"; 
my $file1 = $ARGV[0]; 
my $file2 = $ARGV[1]; 
 
open my $FH1, '<', $file1 or die "can't open '$file1' $!"; 
binmode $FH1; 
 
open my $FH2, '<', $file2 or die "can't open '$file2' $!"; 
binmode $FH2; 
 
for (1..5) { 
   my $md5digest = md5($FH1); 
   my $md5hex = md5_hex($FH1); 
   my $md5base64 = md5_base64($FH1); 
   print "digest: $md5digest\n", 
         "hex: $md5hex\n", 
         "base64: $md5base64\n\n"; 
} 
 
for (1..5) { 
   my $md5digest = md5($FH2); 
   my $md5hex = md5_hex($FH2); 
   my $md5base64 = md5_base64($FH2); 
   print "digest: $md5digest\n", 
         "hex: $md5hex\n", 
         "base64: $md5base64\n\n"; 
}

... 
 
undef $/; 
my $content = <$FH1>; 
$/ = "\n"; 
my $md5digest = md5($content); 
 
...

use strict; 
use warnings; 
use Digest::MD5 qw< md5 md5_hex md5_base64 >; 
 
@ARGV == 1 or die "Usage: $0 <file1>"; 
my $file1 = $ARGV[0]; 
 
open my $FH1, '<', $file1 or die "can't open '$file1' $!"; 
binmode $FH1; 
 
for (1..5) { 
   my $refdigest = `md5sum $file1`; 
   $refdigest = (split(/\s+/, $refdigest))[0]; 
   my $md5digest = md5($FH1); 
   my $md5hex = md5_hex($FH1); 
   my $md5base64 = md5_base64($FH1); 
   print "refdigest: $refdigest\n", 
         "digest: $md5digest\n", 
         "hex: $md5hex\n", 
         "base64: $md5base64\n\n"; 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Digest::MD5 qw< md5 md5_hex md5_base64 >; 
 
@ARGV or die "Usage: $0 <file>"; 
my $file = $ARGV[0]; 
my $size = -s $file; 
 
print "md5 values for $file with a size of $size\n\n"; 
 
my $refdigest = `md5sum $file`; 
$refdigest = (split(/\s+/, $refdigest))[0]; 
 
open my $FH, '<', $file or die "can't open '$file' $!"; 
binmode $FH; 
 
my $content = join '', <$FH>; 
seek $FH, 0,0; 
 
my $md5 = Digest::MD5->new; 
$md5->addfile($FH); 
my $digest = $md5->digest; 
my $digestStr1; 
map { $digestStr1 .= sprintf("%02x", $_) } (unpack("C*", $digest)); 
 
my $md5digest = md5($content); 
my $md5hex = md5_hex($content); 
my $md5base64 = md5_base64($content); 
 
print "md5sum: $refdigest\n"; 
print "OO digest: $digestStr1\n"; 
print "hex: $md5hex\n"; 
print "digest: $md5digest\n"; 
print "base64: $md5base64\n\n"; 
 
[root@asterisk099b ~]# time ./fish.pl /var/log/asterisk/messages 
md5 values for /var/log/asterisk/messages with a size of 636994435 
 
md5sum: b14a30772307956c11a6c65432258e0a 
OO digest: b14a30772307956c11a6c65432258e0a 
hex: b14a30772307956c11a6c65432258e0a 
digest: ±J0w#l¦ÆT2% 
 
base64: sUowdyMHlWwRpsZUMiWOCg 
 
 
real    0m55.237s 
user    0m27.008s 
sys     0m4.604s

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Digest::MD5 qw< md5 md5_hex md5_base64 >; 
use Getopt::Std; 
 
my $usage = "Usage: $0 <dir> oo|func"; 
 
unless(scalar(@ARGV) == 2) { 
    print "$usage\n"; 
    exit -1; 
} 
 
my $dir   = $ARGV[0]; 
my $method = $ARGV[1]; 
 
unless ( -d $dir ) { 
   print "dir \"$dir\" does not exist\n"; 
   exit -1; 
} 
unless ( $method eq 'oo' or $method eq 'func' ) { 
   print "method must be one of 'oo' or 'func'\n"; 
   print "$usage\n"; 
   exit -1; 
} 
 
for my $file (glob("$dir/*")) { 
    my $size = -s $file; 
 
    print "md5 values for $file with a size of $size using $method method\n\n"; 
 
 
    open my $FH, '<', $file or die "can't open '$file' $!"; 
    binmode $FH; 
 
    my ($digest, $digesthex); 
 
    if ( $method eq 'func' ) { 
        my $content = join '', <$FH>; 
        $digest = md5($content); 
        $digesthex = md5_hex($content); 
    } else { 
 
        my $md5 = Digest::MD5->new; 
        $md5->addfile($FH); 
        $digest = $md5->digest; 
        $digesthex = ''; 
        map { $digesthex .= sprintf("%02x", $_) } (unpack("C*", $digest)); 
    } 
    close $FH; 
 
    print "digesthex: $digesthex\n"; 
    print "digest: $digest\n"; 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Digest::MD5 qw<md5_hex>; 
use Benchmark qw <:all>; 
 
@ARGV == 1 or die "Usage: $0 <file>"; 
my $file = $ARGV[0]; 
 
 
cmpthese(-1, 
           { 
             'md5sum' => \&md5sum, 
             'functional' => \&functional, 
             'OO' => \&OO, 
           } 
); 
 
sub md5sum { 
    my $refdigest = `md5sum $file`; 
    $refdigest = (split(/\s+/, $refdigest))[0]; 
} 
 
sub functional { 
    open my $FH, '<', $file or die "can't open '$file' $!"; 
    binmode $FH; 
    my $content = join '', <$FH>; 
    my $md5hex = md5_hex($content); 
} 
 
sub OO { 
    open my $FH, '<', $file or die "can't open '$file' $!"; 
    binmode $FH; 
    my $md5 = Digest::MD5->new; 
    $md5->addfile($FH); 
    my $digest = $md5->digest; 
    my $digestStr1; 
    map { $digestStr1 .= sprintf("%02x", $_) } (unpack("C*", $digest)); 
}