in reply to Efficiency in maintenance coding...

... if one is good enough at one-liners, drop the maintenance and go for free-thought poetry:
perl -lane 's/\W//g,$h{lc$_}++for@F}{print"$_ => $h{$_}"for keys%h' fi +le
:P

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re^2: Efficiency in maintenance coding...
by Aristotle (Chancellor) on Mar 09, 2003 at 17:22 UTC
    perl -nle'$h{+lc}++for/(\w+)/g}{print"$a => $b"while+($a,$b)=each%h' f +ile
    :-)

    Makeshifts last the longest.