document.write('');
document.write('
use strict;
');
document.write('
use Digest::
MD5 qw(md5_base64
);
');
document.write('
');
document.write('
if ($
#ARGV != 1) {');
document.write('
print "Two files as arguments, please\n";
');
document.write('
exit;
');
document.write('
}');
document.write('
');
document.write('
my $file1 =
$ARGV[0];
');
document.write('
my $file2 =
$ARGV[1];
');
document.write('
');
document.write('
open (FILE1,
$file1);
');
document.write('
binmode FILE1;
');
document.write('
my $checksum1 = Digest::
MD5->
new->
addfile(*FILE1
)->
b64digest;
');
document.write('
close FILE1;
');
document.write('
');
document.write('
open (FILE2,
$file2);
');
document.write('
binmode FILE2;
');
document.write('
my $checksum2 = Digest::
MD5->
new->
addfile(*FILE2
)->
b64digest;
');
document.write('
close FILE2;
');
document.write('
');
document.write('
if ($checksum1 ne $checksum2) {');
document.write('
print "\'$file1\' is NOT identicle to \'$file2\'\n";
');
document.write('
print "\'$file1\' = $checksum1\n";
');
document.write('
print "\'$file2\' = $checksum2\n";
');
document.write('
}');
document.write('
else {');
document.write('
print "\'$file1\' is identicle to \'$file2\'\n";
');
document.write('
print "\'$file1\' = $checksum1\n";
');
document.write('
print "\'$file2\' = $checksum2\n";
');
document.write('
}');
document.write('
');
document.write('
');