for maciek

pcmag

(14..28).each do |day|
  (0..23).each do |hour|
    key = "201306#{day}:#{hour}:510ac2293d3d9dda100001eb:app-hourly-events"
    hash = R.hgetall(key)
    nav_count = 0
    ui_count = 0
    hash.each do |k, v|
      nav_count += v.to_i if k.index("page:navigate:")
      ui_count += v.to_i if k.index("ui:article-open:")
    end

    result << {date: "6/#{day}/2013 #{hour}:00:00", nav: nav_count, ui: ui_count}
  end
end



file = File.open("/home/staging/1.csv", "w")

result.each do |r|
  file.write("#{r[:date]}, #{r[:nav]}, #{r[:ui]}\r\n")
end