#!/usr/bin/perl
use MD5;
use SHA;
use RIPEMD160;
use Benchmark;
$million_a = "a" x 1000000;
timethese (100, {
'MD5' =>
'$hash{"MD5"} = MD5->hexhash($million_a)."\n";',
'SHA' =>
'$hash{"SHA"} = SHA->hexhash($million_a)."\n";',
'RIPEMD160' =>
'$hash{"RIPEMD160"} = RIPEMD160->hexhash($million_a)."\n";'
});
print "results of \"a\" x 1000000:\n";
foreach $key (sort keys %hash) {
print "$key : $hash{$key}\n";
}