in reply to Speed up perl code
You're wrote decode( 'cp1252' entirely too many times (131 versus 24 unique, that is 107 duplicates )
Multiply that by the number of iterations through the 42 odd loops, and no wonder its slow
Also, there are way too many levels of indentation -- longest is 13 deep -- you should turn each for loop into a function call , really
|
|---|
In Section
Seekers of Perl Wisdom