# word occurrence listing # usege: ruby freq.rb file.. freq = Hash.new(0) while gets while sub!(/\w+/, '') word = $& freq[word] += 1 end end for word in freq.keys.sort! print word, " -- ", freq[word], "\n" end