haiti.rb

require 'rubygems'
require 'open-uri'
require 'hpricot'

doc = Hpricot(open('http://www.haitisurf.com/dictionary.shtml'))

text_array = (doc/'font').
               collect {|elem| elem.to_plain_text }.
               delete_if { |txt| txt == '' }.
               select {|txt| txt =~ /.+\-.+/ }


text_array.inject({}) do |memo, txt|
  hiaitian_word, translation = txt.split(/\s*\-\s*/)

  puts "H: #{hiaitian_word} ; Translation: #{translation}"
end