Select Code to Download

#!/usr/bin/perl -w

...
}

timethese(3000000, {'openfile' => file_open(), 'changestat' => stat_ch
+ange()});

[11:08:40 jhorner@gateway scripts]$ ./20000619-1.pl 
Benchmark: timing 3000000 iterations of changestat, openfile...
...
            (warning: too few iterations for a reliable count)
  openfile:  0 wallclock secs (-0.33 usr +  0.00 sys = -0.33 CPU) @ -9
+090909.09/s (n=3000000)
            (warning: too few iterations for a reliable count)

#!/usr/bin/perl -w

...
}

timethese(3000000, {'openfile' => file_open(), 'changestat' => stat_ch
+ange()});

[11:10:32 jhorner@gateway scripts]$ ./20000619-1.pl 
Benchmark: timing 3000000 iterations of changestat, openfile...
changestat:  1 wallclock secs ( 0.88 usr +  0.00 sys =  0.88 CPU) @ 34
+09090.91/s (n=3000000)
  openfile:  2 wallclock secs ( 0.91 usr +  0.00 sys =  0.91 CPU) @ 32
+96703.30/s (n=3000000)