HWPS!

tiarra の Auto::Random に食わせるソースを出力するためのスクリプトの個人的メモ。俗に言うすももせいゆう機能(わからんて)。

例によって声優相性診断所さんのリストを使わせてもらってます。

#!/usr/local/bin/ruby
# -*- coding: UTF-8 -*- 
$KCODE = 'u'

require 'open-uri'
require 'nkf'
require 'uri'

uri = 'http://' + %w(tomoch s28 xrea com).join('.') + 'ime.cgi' # 本当はちゃんと書いてます.
out = 'va.txt'

vas = open(uri){|f| f.readlines }

lines = vas.collect {|va|
  name = va.gsub(/\<.*?\>/,'').split[1]
  if name
    wikilink = 'http://ja.wikipedia.org/wiki/' + URI.encode(name)
    "#{name}: #{wikilink}"
  else
    nil
  end
}.compact
open(out, 'w'){|f|
  f.puts lines.join("\n")
}

前は wget で一発だったんだけど Wikipedia のリンクが必要になったのでごにょごにょ。

Tags: 声優

Trackback URI | Comments RSS