ウェブ関係で（略）恥ずかしい日本人100のブログを列挙祭り

「ウェブ関係で仕事をしていて知らないと恥ずかしい日本人100」なる題名のエントリーがはてブのトップにあったので見てみたら、「ゆーすけべー」の文字を発見して嬉しかった。

ゆーすけべー - youravhostの人

ところでこのリスト。ただ名前が並べられているだけで、その人の情報を知りたい時には名前をコピペして検索、なんてことをしなくてはいけない。これはめんどい。また、ウェブ関係で有名というだけあって、多くの人はブログを書いているだろうから、それを見たい、あわよくばRSSリーダーで購読したい。

てなわけで、この「ウェブ関係で（略）恥ずかしい日本人100」の（中でブログを書いている人の）ブログ（らしきもの）を列挙してみたよ。

どうやったかと言うと、名前をYahooで検索して、ブログっぽいものがあったらそれを表示して、もしブログを持ってなくてもGoogleで検索するリンクを作るというスクリプトをPerlで書いた。あと、ブログのURLを含んだOPMLも出力してみた。Yahooで検索→上位のURLからAutodiscoveryをかけて見つかったらそれをブログとする、というアルゴリズムなので、malaさんのブログが彼のはてブとかになっちゃってるけどご了承ください。以下リスト及びOPMLへのリンクと、スクリプト。

OPML

100people.opml

ひろゆき - ご存じ２ちゃんねる管理人: ひろゆき日記@オープンSNS。; Google検索「ひろゆき」
小飼弾 - Jcode.pm作った人、あと404 Blog Not Foundの人: 404 Blog Not Found; Google検索「小飼弾」
mala - Livedoor Readerの人: はてなブックマーク - malaのブックマーク; Google検索「mala」
あきやん - akiyan.comの人。CakePHPの本とか書いた人。: akiyan.com; Google検索「あきやん」
さとる - satoru.netの人。字幕.inの人。ニートの期待の星。: さとるのとまどいながら; Google検索「さとる」
堀江貴文 - Livedoorの社長だった人: 社長日記; Google検索「堀江貴文」
藤田晋 - サイバーエージェントの社長の人: 渋谷ではたらく社長のアメブロ; Google検索「藤田晋」
家入一真 - paperboyの社長の人: hbkr : ハバカリ; Google検索「家入一真」
秋元裕樹 - サイボウズラボの人: 秋元@サイボウズラボ・プログラマー・ブログ; Google検索「秋元裕樹」
田口元 - 百式の人: 百式(100SHIKI.COM) - 世界のアイディアを今日も明日も明後日も -; Google検索「田口元」
宮川達彦 - Sixapartの人: blog.bulknews.net; Google検索「宮川達彦」
まつもとゆきひろ - Ruby作った人: matzにっき; Google検索「まつもとゆきひろ」
伊藤直也 - はてなのnaoyaの人: naoyaのはてなダイアリー; Google検索「伊藤直也」
近藤淳也 - はてなjkondoの人: jkondoの日記; Google検索「近藤淳也」
古川健介 - milkcafeとかmilfileの人: ロケスタ社長日記; Google検索「古川健介」
江島健太郎 - Lingrの人: 江島健太郎 / Kenn's Clairvoyance - CNET Japan; Google検索「江島健太郎」
ひげぽん - Mona OSの人: ひげぽん OSとか作っちゃうかMona-; Google検索「ひげぽん」
amachang - IT戦記の人: John Resig を囲う会の資料を公開します! - IT戦記; Google検索「amachang」
はまちちゃん - こんにちは！こんにちは！の人: ぼくはまちちゃん!(Hatena); Google検索「はまちちゃん」
伊藤穰一 - ベンチャーキャピタリスト？いろいろやっている人: Joi Ito's Web - JP; Google検索「伊藤穰一」
戀塚昭彦 - ニコニコ動画の人: ドワンゴ戀塚昭彦さんの講演「ニコニコ動画の創り方」の動画を公開しました ...; Google検索「戀塚昭彦」
ゆーすけべー - youravhostの人: ゆーすけべー日記; Google検索「ゆーすけべー」
古川享 - 元MSの人: 古川享ブログ; Google検索「古川享」
小野和俊 - アルファブロガー？の人: 小野和俊のブログ; Google検索「小野和俊」
伊藤将雄 - みん就作った人: #65~#68 サービス立ち上げの達人に聞く初動集客の極意――伊藤将雄氏 ...; Google検索「伊藤将雄」
梅田望夫 - Web進化論の人: My Life Between Silicon Valley and Japan; Google検索「梅田望夫」
佐々木俊尚 - ジャーナリスト: 佐々木俊尚の「ITジャーナル」; Google検索「佐々木俊尚」
神田敏晶 - セグウェイ売っていた人、あと都知事選に出た人。: KandaNewsNetwork; Google検索「神田敏晶」
深水英一郎 - まぐまぐ作った人。現未来検索ブラジル社長。: Web人貢献賞:深水英一郎氏 : 第5回 Webクリエーション ...; Google検索「深水英一郎」
竹中直純 - 技術家の人: デジオの宇宙色々; Google検索「竹中直純」
橋本大也 - 情報考学の人: 情報考学橋本大也(著) | 創造マラソン; Google検索「橋本大也」
柳澤大輔 - カヤック社長: 各社員詳細プロフィール - 柳澤大輔 - 面白法人カヤック; Google検索「柳澤大輔」
西和彦 - 1ch.tvの人: J-CASTニュース : ウィキペディア編集方針西和彦がモーレツ批判; Google検索「西和彦」
中島聡 - Life is beautifulの人: 中島聡・ネット時代のデジタルライフスタイル - CNET Japan; Google検索「中島聡」
笠原健治 - mixiの社長の人: レビュー - ZDNet Japan; Google検索「笠原健治」
衛藤バタラ - mixi作った人（最初日本人じゃないっぽいとか書いちゃいましたが日本人でした！）: 「「1人で開発したmixiが、会員数1000万人の国民的インフラに ...; Google検索「衛藤バタラ」
南場智子 - DeNA(モバゲーとかの会社)社長: DNA of DeNA; Google検索「南場智子」
熊谷正寿 - GMOの社長の人: 【クマガイコム】GMOインターネット社長熊谷正寿のブログです; Google検索「熊谷正寿」
金子勇 - 47氏の人: Google検索「金子勇」
原田和英 - ソーシャルネットワーキング.jpなどの人: いけいけどんどん; Google検索「原田和英」
小川浩 - サイボウズの人: Speed Feed : ITmedia オルタナティブ・ブログ; Google検索「小川浩」
後藤康成 - Blogotの人: Blogot - インターネットのトレンドをキャッチしよう; Google検索「後藤康成」
三木谷浩史 - 楽天の社長: 三木谷浩史; Google検索「三木谷浩史」
中村勇吾 - amaztypeとかのFlasherな人: yugop.com; Google検索「中村勇吾」
高木浩光 - セキュリティ研究者の人: 高木浩光@自宅の日記; Google検索「高木浩光」
15 - studio15の人: Google検索「15」
孫正義 - ソフトバンクの人: ソフトバンクホームページ; Google検索「孫正義」
坂村健 - TRONの人: コンピュータ偉人伝ちえの和WEBページ; Google検索「坂村健」
村井純 - 日本のインターネットの母なる人: Google検索「村井純」
べにぢょ - ギークなお姉さんの人（入れるかどうか迷ったけど周りで知らない人がいないので）: べにぢょのらぶこーる; Google検索「べにぢょ」
西川潔 - ビットバレーを提唱した中心者: ホーム | ngi group株式会社; Google検索「西川潔」
前刀禎明 - ライブドア創業者: アップル前刀代表が退任--後任は米VPのフィル・シラー氏に:ニュース ...; Google検索「前刀禎明」
田中良和 - GREE作った人: Tanakayoshikazu.com; Google検索「田中良和」
松永真理 - i-mode作った人: Google検索「松永真理」

Perl スクリプト

#!/usr/bin/perl

use strict;
use warnings;
use IO::File;
use YAML;
use WebService::Simple;
use Feed::Find;
use XML::OPML;
use Template;
use Template::Provider::Encoding;
use Template::Stash::ForceUTF8;
use Cache::File;
use Encode;
use utf8;

my $list_filename = "list.txt";
my $html_filename = "100people.html";
my $opml_filename = "100people.opml";
my @url_black_list = qw(
wikipedia.org
d.hatena.ne.jp/keyword
www.itmedia.co.jp
trendy.nikkeibp.co.jp
blog360.jp
japan.net.comnews
v.japan.cnet.com
bb.watch.impress.co.jp
);
my $cache = Cache::File->new(
               cache_root      => "/tmp/mycache",
               default_expires => "30 min",
           );
my $yahoo = WebService::Simple->new(
    base_url => "http://api.search.yahoo.co.jp/WebSearchService/V1/webSearch",
    ache    => $cache,
    param    => { appid => "test" }
);

my $io = IO::File->new($list_filename, 'r') or die $!;
my @lines = $io->getlines;
$io->close;
my @persons;

foreach my $line ( @lines ) {
    $line =~ /(.*) - (.*)/;
    my ($url,$feed,$title) = search_blog($1,\@url_black_list);
    push(@persons, { name=> $1, description => $2 ,
             url => $url, feed => $feed, title => $title,
        });
}

save_html(\@persons,$html_filename);
save_opml(\@persons,$opml_filename);

sub search_blog {
    my ($name,$black_list) = @_;
    my $response = $yahoo->get({ query => $name });
    my $ref= $response->parse_xml;
    foreach my $result (@{$ref->{Result}}){
    my $url = $result->{Url};
    my $flag = 0;
    foreach my $black_url (@$black_list){
        if($url =~ /$black_url/){
        $flag = 1;
        last;
        }
    }
    next if $flag;
    my @feeds = Feed::Find->find($url);
    if(@feeds){
        return ($url,$feeds[0],$result->{Title});
    }
    }
}

sub save_opml {
    my ($persons,$filename) = @_;
    my $opml = new XML::OPML(version => "1.1");
    
    $opml->head(
             title => 'ウェブ関係で仕事をしていて知らないと恥ずかしい日本人100',
        );
    
    foreach my $person (@$persons) {
    if($person->{feed}){
        $opml->add_outline(
                   title => Encode::decode("utf-8",$person->{name}),
                   description => 
                   Encode::decode("utf-8",$person->{description}),
                   type => 'rss',
                   htmlUrl => $person->{url},
                   xmlUrl => $person->{feed}
               );
    }
    }
    $opml->save($filename);
}

sub save_html {
    my ($persons,$filename) = @_;
    my $template = Template->new(
     LOAD_TEMPLATES => [ Template::Provider::Encoding->new ],
     STASH          => Template::Stash::ForceUTF8->new,);
    my $html;
    $template->process( \*DATA, { persons => \@persons },  \$html )
    or die $template->error;
    my $io = IO::File->new($filename, 'w');
    $io->print($html);
    $io->close;
}

__DATA__
<dl>
[% FOREACH person = persons -%]
<dt>[% person.name | html %] - [% person.description | html %]</dt>
[% IF person.feed %]<dd><a href="[% person.url %]">[% person.title %]</a><dd>[% END %]
<dd><a href="http://www.google.co.jp/search?hl=ja&q=[% person.name | uri %]">Google検索「[% person.name | html %]」</a></dd>
[% END -%]
</dl>