食人賞

食人賞

提起

応募作

集計

2007-10-13 15:30 時点

URLSiteTitleBookmarkStar
http://d.hatena.ne.jp/white_cake/20071001/1191211230wHite_caKe皮膚は柔らかい154241
http://throw.g.hatena.ne.jp/sasuke8/20071001/p1だって、思いついたから彼女が彼女であるために3321
http://neo.g.hatena.ne.jp/extramegane/20070930/1191124742論理兵站相撲部屋ランキング2234
http://text.g.hatena.ne.jp/nisinao/2007100741二の腕の傷跡1434
http://neo.g.hatena.ne.jp/objectO/20071002/p1安寿土牢食人賞作品総評1217
http://d.hatena.ne.jp/nekoprotocol/20070928/1190985432ネコプロトコル人肉は飲み物だ1122
http://neo.g.hatena.ne.jp/nitino/20071001/1191243779胡乱ボーイ・ミート・ガール1114
http://d.hatena.ne.jp/motimoti3/20071003#p1もちがやRM3’食人賞」応募作品 もちがやります’完844
http://neo.g.hatena.ne.jp/xx-internet/20070929/p1ファッキンガム殺人事件食人賞応募作品 - 肉の中に二人512
http://neo.g.hatena.ne.jp/llpp/20071003#p1Everything starts with a Fuck!島の生活42
http://d.hatena.ne.jp/sunagi/20070930/1191194444やや最果てのブログLe Viandier ル・ヴィアンディエ42
http://d.hatena.ne.jp/rikuo/20071003#p2007100301聴く耳を持たない(片方しか)法に触れずに人肉を食べる方法 - 「食人賞」応募作品44
http://zapanet.info/blog/item/1101ZAPAブロ~グ2.0人間を食べると、人間は死に、生が待つ4
http://d.hatena.ne.jp/ykic/20071004/p1郊外都市の24時間Sweet Days31
http://neo.g.hatena.ne.jp/masapguin/20071001/1191225617書くこととみつけたり。病照レとは死狂ひなり。34
http://d.hatena.ne.jp/upskirt/20071006/p1upskirt腐らない人形が欲しかった24
http://d.hatena.ne.jp/ykic/20071002/p1郊外都市の24時間遠い国の方から24
http://orangestar.littlestar.jp/comic/minchi.htmlorange starミンチ2
http://d.hatena.ne.jp/nijuusannmiri/20071002/119128436423mmの銃口から飛び出す弾丸はA子とN男21
http://neo.g.hatena.ne.jp/b_say_so/20071001/1191251371犬は花の匂いをかいでいる午前三時ちょうど21
http://neo.g.hatena.ne.jp/ilikebetty/20070930/1191166963世界はファックでできている狂人日記23
http://d.hatena.ne.jp/kizury/20071007Kizurizm創作出張所『太閤の春薬』(日本編)21
http://neo.g.hatena.ne.jp/comnnocom/20071001/p1 -N-t-S-d-孤独なグルメ29
http://d.hatena.ne.jp/kizury/20071005Kizurizm創作出張所『江湖名菜』(中国編)21
http://d.hatena.ne.jp/toruot/20071001/p1toruotの日記食人賞応募作品「手の届く範囲に」2
http://d.hatena.ne.jp/kizury/20071006Kizurizm創作出張所『レッドネックのBBQのガイドライン』(アメリカ編)2
http://d.hatena.ne.jp/nebomana/20071003/p1ねぼまな!人を喰った話(食人賞22
http://neo.g.hatena.ne.jp/masapguin/20070927/1190850893書くこととみつけたり。食人賞習作。12
http://hedoro.g.hatena.ne.jp/furamubon/20071002/1191285612べとべとさんぱくぱく1
http://d.hatena.ne.jp/uranio/20071001/p1escapism食人賞:世界グルメ奇行1
http://neo.g.hatena.ne.jp/cinematic/20071001#p1kill the pastバイト for bites19
http://d.hatena.ne.jp/narukami/20071002#1191297147pouda::memoマリッジブルー117
http://d.hatena.ne.jp/DocSeri/20071007/1191733103妄想科學日報食べたのは誰か11
http://d.hatena.ne.jp/OjohmbonX/20071004/p1げげぶちこ一方そのころ海原雄山は「俺の左手、超ウマいんですけど」と言った。0
http://d.hatena.ne.jp/Zerosuke/20071003/1191425184バスラギドラにゃ角はない食人賞「魅力的なおまえにミートソースをぶっかける」01
http://d.hatena.ne.jp/globalhead/20071012#p1メモリの藻屑、記憶領域のゴミ《屍肉のえじき》 (秋の食人賞フェア)03
http://d.hatena.ne.jp/OjohmbonX/20071002/p6げげぶちこ食人賞応募作0
http://neo.g.hatena.ne.jp/masapguin/20071003/1191397591書くこととみつけたり。「食人百物語」0
http://d.hatena.ne.jp/mamine/20071009/1191937377はぐれメタル純情派食人賞応募作品「ミルキー」0
http://neo.g.hatena.ne.jp/jealousdog/20071007/1191732965cheated darling.アンパンマンの手紙03
http://neo.g.hatena.ne.jp/hanhans/20071002/p1小説蛾螺倶璃砦まな板の上の011
http://d.hatena.ne.jp/crow_henmi/20071007/1191752834BLUE ON BLUE(XPD SIDE)食人器官/cannibal organ0
http://neo.g.hatena.ne.jp/kennak/20071002/1191308062pour away - 揺れる蛍の幻inculturation01
http://neo.g.hatena.ne.jp/masapguin/20071002/1191298661書くこととみつけたり。食人賞応募:牧場物語02
http://d.hatena.ne.jp/gomis/20071001/1191238272gomisの日記被喰願望者0
http://d.hatena.ne.jp/cheshiercat/20071004/p1わたしのものさし(はてな版)食人賞?応募作「最後は晩餐」0
http://d.hatena.ne.jp/runan1242/20071004#p1おいしいものつくろう彼と××な私0
http://d.hatena.ne.jp/bachihebi/20070929#191076727回転図誌白鷺0

集計用スクリプト

要 Hpricot 。

require 'open-uri'

class Stars
  require 'yaml'
  @@base = 'http://s.hatena.ne.jp/'
  @@entry = 'entry.json?uri='
  @entry = nil
  
  def initialize(uri)
    @entry = YAML.load(open(@@base + @@entry + URI.escape(uri)).read.gsub(/([,:])/, '\\1 '))["entries"][0]
  end
  
  def count()
    return nil if @entry == nil
    return 0 unless @entry.key?("stars")
    @entry["stars"].length
  end
end

def get_entries
  a = []
  
  require 'rubygems'
  require 'hpricot'
  
  uri = 'http://neo.g.hatena.ne.jp/keyword/%e9%a3%9f%e4%ba%ba%e8%b3%9e'
  
  doc = Hpricot(open(uri))
  (doc/'div.section[2]/ul/li').map {|li|
    site, title = ""
    if /^(.+) - (.+) \(/ =~ li.innerText
      site, title = $1, $2
    end
    u = ""
    (li/'a').map {|e|
      next unless e["class"] == nil
      u = e["href"]
    }
    a.push [site, title, u]
  }
  
  a
end

class Entry
  attr_accessor :site, :title, :uri, :b, :s
end

def main
  b_api_url = 'http://b.hatena.ne.jp/xmlrpc'
  entries = Hash.new {|h,k| h[k] = Entry.new }
  
  get_entries().each {|a|
    site, title, u = a[0..2]
    e = entries[u]
    e.uri = u
    e.site = site
    e.title = title
  }
  
  # bookmark count
  # TODO MAX 50
  require 'xmlrpc/client'
  client = XMLRPC::Client.new2(b_api_url)
  client.call("bookmark.getCount", *entries.keys).each_pair {|uri,count|
    entries[uri].b = count
  }
  
  # star count
  entries.each_pair {|uri, e|
    s = Stars.new(uri)
    e.s = s.count
  }
  
  # dump
  sep = "|"
  
  puts sep + ["*URL", "*Site", "*Title", "*Bookmark", "*Star"].join(sep) + sep
  entries.sort_by {|uri,e| e.b }.reverse_each {|a|
    puts sep + [a[0], a[1].site, a[1].title, a[1].b, a[1].s].join(sep) + sep
  }
end

main()