Guest User

knarf

a guest
Mar 1st, 2009
132
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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. }
  6.  
RAW Paste Data