Visualization of "ｽﾞｯ友" relationship, a Japanese twitter meme http://route477.net/d/?date=20120510#p01

analyze.rb

# coding: utf-8
#
require 'pp'
tomo = {}
File.open(ARGV[0]) do |f|
  while line = f.gets
    next if line =~ /\A"RT "/
    if line =~ /でも…+([^…]*)と([^…]*)ゎ…+(ｽﾞｯ友|ズッ友)/
      tomo[$1] = $2
    end
  end
end

pp tomo

graph.rb

require 'graph'

hash = eval(File.read(ARGV[0]))
digraph do
  hash.each do |k, v|
    next if k.start_with?(" ")

    edge k, v
  end

  save "zuttomo_social_graph", "png"
end

zuttomo.rb

# coding: utf-8
require 'twitter'
require 'date'
require 'logger'

class DailyTweet
  @logger = Logger.new($stderr)

  # Returns nil
  def self.get(date, str, opts={}, max_id=nil, &block)
    on_the_day = ->(time){
      time.getgm.strftime("%Y-%m-%d") == date.strftime("%Y-%m-%d")
    }

    options_first = {
      result_type: "recent",
      rpp: 100, 
    }
    if max_id
      options_first.merge!(max_id: max_id)
    else
      options_first.merge!(until: (date+1).strftime("%Y-%m-%d"))
    end
    options_rest = {
      result_type: "recent",
      rpp: 100, 
    }
    is_first = true

    last_id = nil
    1.upto(Float::INFINITY) do |page|
      @logger.info("retrieving page #{page}")

      if is_first
        posts = search_tweets(str, options_first)
        is_first = false
      else
        posts = search_tweets(str, options_rest.merge(max_id: last_id))
      end
      last = posts.last
      @logger.debug("last tweet: #{last.created_at} (#{last.created_at.getgm} #{last.id})")
      last_id = posts.last.id

      posts_on_the_day = posts.select{|post| on_the_day[post.created_at]}
      yield posts_on_the_day

      break if posts.size != posts_on_the_day.size
      sleep 1
    end
  end

  # Returns array of Twitter::Status.
  def self.search_tweets(str, options)
    tries = 0
    begin
      return Twitter.search(str, options)
    rescue Exception => e
      tries += 1
      if tries <= 3
        @logger.warn("Error: #{e.message}(#{e.class}) Sleep 2min.")
        sleep 120
        retry
      end
    end
  end
end

DailyTweet.get(Date.new(2012,5,9), "ｽﾞｯ友", {}, ARGV[0]) do |posts|
  puts posts.map{|post| post.text.inspect}
end

zuttomo_social_graph.50.png