ruby--ruby/sample/freq.rb

# 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