diff options
Diffstat (limited to 'perl/z.pl')
| -rw-r--r-- | perl/z.pl | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/perl/z.pl b/perl/z.pl deleted file mode 100644 index 8bba1bdbd2..0000000000 --- a/perl/z.pl +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/local/bin/perl - -use ExtUtils::testlib; - -use SSLeay; -use Benchmark; - -$buf=('x' x (1024*1024)); -$buf=('x' x (1024*1024)); - -@md=(); -foreach $name ("md2", "mdc2", "sha", "ripemd160", "sha1", "md5") - { - if (($name eq "md2") || ($name eq "mdc2")) - { $num=5; } - else { $num=100; } - - $t=timeit($num,'&hash($name)'); - printf "%6d000 bytes/sec:$name\n",int(($num*1024*1024)/$t->[1]/1000); - } - -sub hash - { - my($name)=@_; - my($f,$digest); - - ($f=MD->new($name)) || - die "$_ is an unknown message digest algorithm\n"; - $f->update($buf); - $digest=$f->final(); - } - |