perl/z.pl

   1 #!/usr/local/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6 use Benchmark;
   7
   8 $buf=('x' x (1024*1024));
   9 $buf=('x' x (1024*1024));
  10
  11 @md=();
  12 foreach $name ("md2", "mdc2", "sha", "ripemd160", "sha1", "md5")
  13         {
  14         if (($name eq "md2") || ($name eq "mdc2"))
  15                 { $num=5; }
  16         else    { $num=100; }
  17
  18         $t=timeit($num,'&hash($name)');
  19         printf "%6d000 bytes/sec:$name\n",int(($num*1024*1024)/$t->[1]/1000);
  20         }
  21
  22 sub hash
  23         {
  24         my($name)=@_;
  25         my($f,$digest);
  26
  27         ($f=MD->new($name)) ||
  28                 die "$_ is an unknown message digest algorithm\n";
  29         $f->update($buf);
  30         $digest=$f->final();
  31         }
  32