SHARE
TWEET

knarf

a guest Mar 1st, 2009 90 Never
  1. open $file, 'test.txt';
  2. map {$freq{lc $_}++} split for <$file>;
  3. for $word (sort {$freq{$b} <=> $freq{$a}} keys %freq) {
  4.     print "$word: $freq{$word}\n";
  5. }
RAW Paste Data
Top