|Just another Perl shrine|
Re^6: Fast parsing for cypher block chainingby fluffyvoidwarrior (Monk)
|on Mar 01, 2006 at 10:25 UTC||Need Help??|
Its a snippet of a subroutine timed using the Benchmark module ie
my $interval = timeit(1, \&wibble);
where wibble is my subroutine. I'm also MD5 hashing the input and output files before and after my subroutine is called to make sure I'm not outputting garbage and also checking filesize.
Anyway, just by watching a clock I can tell the difference between nearly 10 mins execution and 1.5 mins.
Can anyone rewrite the above code to increase performance by a factor of 5 or more ?
Obviously if the two approches were in the same ballpark I wouldn't bother with the sysread stuff - I'm not trying to complicate things on purpose.