読者です 読者をやめる 読者になる 読者になる

ゆーすけべー日記

はてなBlogってどーなの!?

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

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

ゆーすけべー - youravhostの人

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

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

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

OPML

リスト

ひろゆき - ご存じ2ちゃんねる管理人
ひろゆき日記@オープン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>

世界がもし100人の村だったら
posted with yusukebe.com::AmazonSearch on 2008.4.14
  • 池田 香代子 C.ダグラス・ラミス
  • 単行本 / マガジンハウス
  • Amazon 売り上げランキング: 1551
  • Amazon おすすめ度の平均: 3.5
    • 5 すばらしいい世界
    • 5 真剣な人が世界を変える。
    • 3 感銘する。ただ少しほのかに赤い政治色が
    • 5 こういう本、もっと欲しいですね。
    • 3 ある意味では良書
Amazon.co.jpで詳細を見る