Hori's Weblog

rasdial ダイヤルアップに登録したエントリ名 プロバイダのユーザーID パスワード

ruby mmc.rb

rasdial /d

#!/usr/bin/ruby
require 'rubygems'
require 'hpricot'
require 'net/http'
opt = ["/", "/ind", "/tra", "/sec", "/env", "/com"]
path, = ARGV
number = 0
checkpoint = 2 #アクセス前後でxmlを比較する街の数
cpcounter = 0
printf "---\n"
  IO.foreach("List.txt") do |line|
    checkflug = 0
    number = number + 1
    city = line.strip
    host = sprintf("%s.myminicity.com",city)
    http = Net::HTTP.new(host,80)
    doc = Hpricot(http.get("/xml").body)
    name = doc.search("name").inner_text
    if name == "" #nameが空＝xmlを読めなかった場合はpopでアクセス
      printf "No. %s \"%s\"\n",number,city
      printf "URL: http://%s%s\n",host,opt[0]
      begin #mmcサーバにアクセス
        printf "Return value: %s\n",http.get(opt[0]+"?",{'Cookie'=>'X-Ref-Ok=1'}).message
      rescue Timeout::Error => e
        puts ' caught ' + e
        retry
      end
    else
      region = doc.search("region").inner_text
      ranking = doc.search("ranking").inner_text.to_i
      population = doc.search("population").inner_text.to_i
      incomes = doc.search("incomes").inner_text.to_i
      unemployment = doc.search("unemployment").inner_text.to_i
      transport = doc.search("transport").inner_text.to_i
      jam = 100 - transport
      criminality = doc.search("criminality").inner_text.to_i
      pollution = doc.search("pollution").inner_text.to_i
      bases = sprintf("%s",doc.search("bases")).delete("<>/\"[a-z] *").split(/=/)
      ind = bases[5].delete("\n").to_i
      tra = bases[3].delete("\n").to_i
      sec = bases[4].delete("\n").to_i
      env = bases[2].delete("\n").to_i
      com = bases[1].delete("\n").to_i
      sum = population + ind + tra + sec + env + com
      printf "No. %s \"%s\" in %s\n",number,name,region
      printf "規模:%d, 順位:%d位, 人口:%d人, 資産:%deuro\n",sum,ranking,population,incomes
      printf "失業:%d%%, 交通:%d%%, 犯罪:%d%%, 汚染:%d%%\n",unemployment,transport,criminality,pollution
      printf "工場:%d, 道路:%d, 警官:%d, 公園:%d, 商店:%d\n",ind,tra,sec,env,com
      if population < 50 #レベル1の場合
        i = 0 #アクセス方法をpopにする
      elsif population >= 50 && population < 100 #レベル2の場合
        if unemployment > 0 #失業率が0より大きい場合
          i = 1 #アクセス方法をindにする
        else
          i = 0 #アクセス方法をpopにする
        end
      elsif population >= 100 && population < 300 #レベル3の場合
        if jam > 0 || unemployment > 0
          if jam > unemployment
            i = 2 #アクセス方法をtraにする
          else
            i = 1 #アクセス方法をindにする
          end
        else
          i = 0 #アクセス方法をpopにする
        end
      elsif population >= 300 && population < 500 #レベル4の場合
        if criminality > 0 || jam > 0 || unemployment > 0
          if [criminality, jam, unemployment].max == criminality
            i = 3 #アクセス方法をsecにする
          elsif [criminality, jam, unemployment].max == unemployment
            i = 1 #アクセス方法をindにする
          else
            i = 2 #アクセス方法をtraにする
          end
        else
          i = 0 #アクセス方法をpopにする
        end
      elsif population >= 500 && population < 1000 #レベル5の場合
        if pollution > 0 || criminality > 0 || jam > 0 || unemployment > 0
          if [pollution, criminality, jam, unemployment].max == pollution
            i = 4 #アクセス方法をenvにする
          elsif [pollution, criminality, jam, unemployment].max == criminality
            i = 3 #アクセス方法をsecにする
          elsif [pollution, criminality, jam, unemployment].max == unemployment
            i = 1 #アクセス方法をindにする
          else
            i = 2 #アクセス方法をtraにする
          end
        else
          i = 0 #アクセス方法をpopにする
        end
      else
        if pollution > 0 || criminality > 0 || jam > 0 || unemployment > 0 #レベル6の場合
          if [pollution, criminality, jam, unemployment].max == pollution
            i = 4 #アクセス方法をenvにする
          elsif [pollution, criminality, jam, unemployment].max == criminality
            i = 3 #アクセス方法をsecにする
          elsif [pollution, criminality, jam, unemployment].max == unemployment
            i = 1 #アクセス方法をindにする
          else
            i = 2 #アクセス方法をtraにする
          end
        else
          i = 5 * rand(2) #アクセス方法をpopかcomのどちらかにする(popに限定する場合は0にする)
            end
        end
      end
      printf "URL: http://%s%s\n",host,opt[i]
      sleep 2 #mmcサーバに負荷をかけすぎるといけないので2秒待つ
      begin #mmcサーバにアクセス
        printf "Return value: %s\n",http.get(opt[i]+"?",{'Cookie'=>'X-Ref-Ok=1'}).message
      rescue Timeout::Error => e
        puts ' caught ' + e
        retry
      end
      if cpcounter < checkpoint #アクセスに成功したか確認する場合はxmlを取得する
        sleep 2 #mmcサーバに負荷をかけすぎるといけないので2秒待つ
        doc = Hpricot(http.get("/xml").body)
        name_after = doc.search("name").inner_text
        if name_after == "" #nameが空＝xmlを読めなかった場合はチェックフラグを0にする
          checkflug = 0
        else #nameが空でない＝xmlを読めた場合はxmlデータを整理し、チェックフラグを1にする
          ranking_after = doc.search("ranking").inner_text.to_i
          population_after = doc.search("population").inner_text.to_i
          incomes_after = doc.search("incomes").inner_text.to_i
          unemployment_after = doc.search("unemployment").inner_text.to_i
          transport_after = doc.search("transport").inner_text.to_i
          criminality_after = doc.search("criminality").inner_text.to_i
          pollution_after = doc.search("pollution").inner_text.to_i
          bases = sprintf("%s",doc.search("bases")).delete("<>/\"[a-z] *").split(/=/)
          ind_after = bases[5].delete("\n").to_i
          tra_after = bases[3].delete("\n").to_i
          sec_after = bases[4].delete("\n").to_i
          env_after = bases[2].delete("\n").to_i
          com_after = bases[1].delete("\n").to_i
          ranking_inc = ranking_after - ranking
          population_inc = population_after - population
          incomes_inc = incomes_after - incomes
          unemployment_inc = unemployment_after - unemployment
          transport_inc = transport_after - transport
          criminality_inc = criminality_after - criminality
          pollution_inc = pollution_after - pollution
          ind_inc = ind_after - ind
          tra_inc = tra_after - tra
          sec_inc = sec_after - sec
          env_inc = env_after - env
          com_inc = com_after - com
          sum_after = population_after + ind_after + tra_after + sec_after + env_after + com_after
          sum_inc = sum_after - sum
          printf "規模:%d(%+d), ",sum_after,sum_inc
          printf "順位:%d位(%dup), ",ranking_after,-ranking_inc
          printf "人口:%d人(%+d), ",population_after,population_inc
          printf "資産:%deuro(%+d)\n",incomes_after,incomes_inc
          printf "失業:%d%%(%+d%%), ",unemployment_after,unemployment_inc
          printf "交通:%d%%(%+d%%), ",transport_after,transport_inc
          printf "犯罪:%d%%(%+d%%), ",criminality_after,criminality_inc
          printf "汚染:%d%%(%+d%%)\n",pollution_after,pollution_inc
          printf "工場:%d(%+d), 道路:%d(%+d), ",ind_after,ind_inc,tra_after,tra_inc
          printf "警官:%d(%+d), 公園:%d(%+d), ",sec_after,sec_inc,env_after,env_inc
          printf "商店:%d(%+d)\n",com_after,com_inc
          cpcounter = cpcounter + 1
          checkflug = 1
        end
      end
    end
    printf "---\n"
    if checkflug == 1 #アクセス前後でxmlを取得した場合、有効性をチェック
      if i == 0 #popでアクセスしたが人口が増えていない場合はスクリプトを終了
        if population_inc <= 0
          break
        end
      elsif i == 1 #indでアクセスしたが工場が増えていない場合はスクリプトを終了
        if ind_inc <= 0
          break
        end
      elsif i == 2 #traでアクセスしたが道路が増えていない場合はスクリプトを終了
        if tra_inc <= 0
          break
        end
      elsif i == 3 #secでアクセスしたが警官が増えていない場合はスクリプトを終了
        if sec_inc <= 0
          break
        end
      elsif i == 4 #envでアクセスしたが公園が増えていない場合はスクリプトを終了
        if env_inc <= 0
          break
        end
      elsif i == 5 #comでアクセスしたが商店が増えていない場合はスクリプトを終了
        if com_inc <= 0
          break
        end
      end
    end
    sleep 3 #mmcサーバに負荷をかけすぎるといけないので3秒待つ
  end
localtime = Time.now.strftime("%a, %d %b %Y %H:%M:%S +0900")
printf "At %s\n",localtime

• checkpoint を2にしているのは、1だとたまたま同じアクセス方法を取っている人がいると誤判定してしまうからです。mmcサーバが不調でxmlが取りにくい場合は0にしても良いかも


• wait（sleep）をあちこちに入れてますが、回線状況やmmcサーバの調子に応じて適宜調整してください


• rand(2)は0か1を返します。popもcomもいらんからindかtraかsecかenvで、なんて人がいたらif分で切り分けてi = 1 + rand(4)なんてすると良いでしょう（これだと i が1～4の整数になる）


• mmcサーバにアクセスしようとして失敗した場合、リトライを試みるようになっていますが、mmcサーバが重たいとスクリプトが途中でタイムアウトしてこけます。うまく処理する方法をご存じの方がいらっしゃいましたら教えてやってください。

元々rubyって使ったことが無くて良く分かってません。そんなやつが人が作ったものを改造してたらこんな感じの長ったらしい見にくいスクリプトになってしまいました(^^ゞ

rubyスクリプトの中身は下記のようになりますので、適当な名前を付けて保存してください。
※rubyスクリプトの拡張子は「.rb」です。

require 'net/http'
$KCODE = 'u'
# Crawling
f = open("MyMiniCityList.txt" ,"r")
   while url =f.gets
      uri=URI.parse(url)
         begin
         #アクセス
         http=Net::HTTP.new(uri.host,80)
         #cookieを付けないとアクセスできないのでcookieもヘッダで渡す
         p http.get(uri.path+"?",{'Cookie'=>'X-Ref-Ok=1'}).message
         #タイムアウトした場合はもう一回アクセス
      rescue Timeout::Error => e
         puts '  caught ' + e
         retry
      end
      puts url
   end
   sleep 3#やりすぎるとアクセス拒否される可能性があるので、念のため3秒間ウェイト
f.close

巡回する街のリストはMyMiniCity.txtというファイルに以下のようにMyiniCityの街のurlを1行ずつ書きます。
※リストのファイルパスが通っていないと動かないので上記のrubyスクリプトは適宜変更が必要

http://mhori.myminicity.com/
http://aaa.myminicity.com/
http://bbb.myminicity.com/
http://ccc.myminicity.com/
　　　・
　　　・
　　　・
http://zzz.myminicity.com/

私の環境ではAirEDGEでアクセスして入植者数が増えることを確認していますので、遅い回線を使っていてもちゃんと巡回が成立するのではないかと思います。コメントは残せないという欠点はありますが、使えないことはないということで。
で、使ってみようという奇特な人は巡回リストに私の街
http://mhori.myminicity.com/
を入れておいていただけるとありがたいな、と（笑

で、ここまで書いて思ったんですが、別にMyMiniCity専用ってことでもなくて、他にもアクセスすることで何かが起こるようなコンテンツなら使えるわけですね。htmlをローカルに保存しておいて後から見るなんてこともできなくはないだろうし。＜プログラマじゃないのでいまいち分かってない（爆

追記：
rubyのインストールは、Ruby（Windows への手動導入）を参考にしました。