Select Code to Download

Benchmark: timing 1000 iterations of filereadbackwards, tailz, tailz1.
+..
filereadbackwards:  1612.90/s (n=1000)
                       tailz:  152.91/s (n=1000)
                     tailz1:  12500.00/s (n=1000)

#!/usr/bin/perl
use Benchmark;
...
},
});

#!/usr/bin/perl -w
# example for files with max line lengths < 400, but it's adjustable 
...
print "@tail\n";
exit;