SHARE
TWEET

knarf

a guest Mar 1st, 2009 99 Never
  1. open $file, 'test.txt';
  2. map {$freq{lc $_}++} split for <$file>;
  3. say "$_: $freq{$_}" for sort {$freq{$b} <=> $freq{$a}} keys %freq;
RAW Paste Data
Top