Help for this page

Select Code to Download


  1. or download this
        perlio:  1 wallclock secs ( 1.04 usr +  0.07 sys =  1.11 CPU) @ 62
    +.16/s (n=69)
       regular:  1 wallclock secs ( 0.92 usr +  0.20 sys =  1.12 CPU) @ 19
    +4.64/s (n=218)
    
  2. or download this
         use PerlIO::via::MD5;
         use Digest::MD5 qw(md5_hex);
         use Benchmark qw(:all);
    ...
     
             return md5_hex($data);
         }