ruby/sample/occur.rb

# word occurrence listing
# usage: ruby occur.rb file..
freq = Hash.new(0)
while line = gets()
  line.scan(/\w+/) do |word|
    freq[word] += 1
  end
end

for word in freq.keys.sort!
  print word, " -- ", freq[word], "\n"
end