Select Code to Download

#!/usr/bin/perl -w

...
    },
         });

[perrin@localhost perrin]$ ./file_bench.pl
Benchmark: timing 100 iterations of berkeley write, file write...
...
                Rate berkeley read     file read
berkeley read 14.0/s            --          -30%
file read     19.9/s           42%            --

#!/usr/bin/perl -w

...
      }
    },
         });

Benchmark: timing 50 iterations of berkeley write, file print, file sy
+swrite, file write...
berkeley write:  5 wallclock secs ( 5.17 usr +  0.02 sys =  5.19 CPU) 
+@  9.63/s (n=50)
...
file read     21.2/s           25%            --           -7%        
+  -21%
file sysread  22.7/s           34%            7%            --        
+  -15%
berkeley read 26.7/s           58%           26%           17%        
+    --