イクイク動画 (18禁!)

イクイク動画は見てわかる通り、ニコニコ動画を劣化させて、取り扱う映像はエロ限定にしたようなサービスです。コメントする際にログイン等は必要ないので、誰でも即投稿できるようになっています。 また、特徴として、「シコシコボタン」を搭載しています。 動画を見て興奮してしまったら、是非この「シコシコボタン」を連打してみてください。 ゲージがたまると、「おたまじゃくし」の形をした何かが画面上に飛び出します。

イクイク動画プレイヤーの解説

さて、作ってみた経緯を簡単に。 まず、現状で叶えられているかは置いておいて、作ろうとした目的なんですが、 簡単に言うと「ネット上でエロ動画見ながら他人同士がコミュニケーションをとったらどうなるんだ」といった疑問に対する答えを知りたかったことが挙げられます。

学生の時、いや今でもありますが、男同士で集まるとよくアダルトビデオの話題になって、あの子がかわいいやら、あのビデオはいいやらと盛り上がって楽しいです。 また、おおっぴろげに言えませんが、中学性の時なんかは、みんなで友達の家にいって、エロビを一緒に見て楽しかった思い出があります。 そんなエロトークの面白さを不特定多数の人とネット上でやれたら面白いかも！というのが最初の動機です。 そこで、「動画でコミュニケーションといったらニコニコ動画だよね」、そして「エロビといったら今は YourFileHost だよね」という結論になり、YourFileHost の動画上に ニコニコ風コメントがつけれるサービスを作ろうとなった段です。なので、今回のイクイク動画はそこで性処理をすることを目的とあまりしていないというのが正直なところになります。

また、以前から「エロ動画で盛り上がるところはどこかをどうにかして知ることはできないかなー」と思っていました。そこで、動画を見ていてユーザーが興奮した場合に、何かリアクションをすることができるのならば、その場面がわかるのではないかと思いました。てなわけで、Usteam の shout 機能インスパイヤ で「シコシコボタン」が設置されることになったのです。公開してから見てみるとぶっちゃけこの目的は達成できていない、とわかるところがありますが、その辺もあとでまとめたいです。

ちなみに、実装は Flash によるコメントの表示部分や動画の読み込みなどの検証は以前から行っていて、 あとは GW 中にサイトの形になるまで作りました。 Flash のプレイヤーに関して、コメントの表示部分に判定がいくつも必要で、意外にも難しいです。 今でも、コメント同士がかぶっている現象があってしょぼいっす。ニコニコ動画のプレイヤーはほんとよくできているとわかりました。 大まかなシステムとしては、まず YourAVHost のフィード API から動画情報を取得して DB にぶち込んでおいて、個々のページに行くと Flash でできたプレイヤーが起動、その際 コメント情報や YourFileHost の FLV (Flashビデオ形式、裏APIをたたくとわかる) へのパスなどをバックエンドから受け取って表示という感じです。

実験的なサービス＆まだ不具合多いですが、もしよろしければ、遊んでください。 「今会社だから見れないよー」という方も家に帰って「シコシコ」してみてプリーズ。 というわけで イクイク動画 よろしくね！

• イクイク動画

2ヶ月ほど前に高校サッカー部からの友達 KC が引越しをするというので手伝った。 その時に今まで住んでいた家の床を「激落ち君」を使ってものすごく綺麗にしたんだよね。 うんで、どのくらい綺麗になったのかを自分で確認する意味も込めて、 その床をイジリー岡田ばりにぺろぺろ舐めてみた。 さらに、テンションがあがったため、そのままその様子の映像をニコニコにうｐした。

そして日記に床≒ゆか（名前が「ゆか」の女性）と解釈して 「俺にぺろぺろされたい『ゆか』ちゃん募集中だよ。」と冗談で書いておいたのであった。

• 参考: ゆーすけべー日記: ゆかをぺろぺろしている映像をニコニコ動画にアップして励まされるライフハック

すると、今から1ヶ月ほど前、いきなり個人宛に ITmedia の中の人から取材依頼のメールが飛んできた。 うんで送信者の名前を見ると「岡田有花」って書いてあるじゃまいか！どっかで見たことがある名前だ。 調べてみると、どうやら有名な記者さんらしい。

岡田 有花（おかだ ゆか、1978年10月13日−）はITmedia記者である。兵庫県出身。自称としてIT戦士を良く称する。顔以外の露出が多い体当たり系の記事が得意であり、それにより人気を博している。京都大学教育学部卒業。愛称は「ユカタン」。

岡田有花 - Wikipediaより

体当たり！キャラか、素晴らしい。 当初、「取材に来るとしても、我がオフィスは自宅＋祖母の家ですよー（しょぼいよ）」と伝えたのだが、 その様子も見てみたいということで、取材に来てもらうことにした。

うは！ユカタン、これはもしかして、俺にぺろぺろされたいのか！

さらに、取材の前日、ニコニコ動画になんとその ユカタン をテーマにした初音ミクが歌うオリジナルテーマソングのビデオがうｐされた。なんというタイミング！

こうして取材当日を迎え、ニコニコ動画でも大人気な ユカタン がやってきたわけだ。 掲載された ITmedia の記事についたはてブコメントに

そんなゆーすけべーに女の身一つで突撃する岡田有花さんは勇者。結婚してください。

はてなブックマーク - Waferのブックマーク / 2008年05月03日

とあるとおり、結婚したいかどうかはさておき、確かにエロギークの自宅に何も躊躇せずやってくる ユカタン の体当たり精神はすごいと思った。

で、肝心の ユカタン をぺろぺろしたかどうかについてはノーコメントとさせていただく。 ま、ネットで発信すれば、偶然かもしれないが、望みは叶うかもということと、個人的に開催されている「ユカタン」祭りについてまとめてみたという具合だ。みんなも、ゆかをぺろぺろする動画をニコニコにうｐすれば ユカタン がやってくるかもよ！。

さて、ユカタン にはこれからも IT 戦士としてどんどんいろいろなところに突撃してもらいたいと思います。

ちなみに、この記事へのはてブがかなりの勢いでされていて嬉しいのですが、 コメントで「父の方がすごい」的なことが結構書かれていて、父親に若干、いやかなり嫉妬しているところです。これを機に父子間で、代表取締役交代という下克上が起こるかもしれませんので、俺をよいしょするようなコメントをしていただけると助かります。

ということで、ワディットをよろしくお願いいたします。 記事、未読な方は是非読んでみてください。また、今回のような ワディット や、俺もしくは親父への取材はバンバン受けてつけていますので、そのような方は yusuke (at) kamawada.com までご連絡をください。

• ITは、いま：鎌倉の自宅ではたらく、父子2人のIT企業 (1/2) - ITmedia News

今回の行程は、28日の夕方に都内に集まり車で駐車場まで行き、そこで深夜のバーベキューをして、車中で寝る。そして、早朝から登り始め、登頂した後すぐに帰ってきて、29日中に都内へ戻ってくるというルート。

深夜バーベキューの準備をする隊員たち

(左)99年ショップクオリティでもうまい、(右)にんにく焼きがいい感じ

バーベキューは99円ショップクオリティの素材にもかかわらず、普通にうまい。 やっぱりみんなでわいわいやりながらだと楽しいもの。 が、しかし、萎える事態が発生した。

周りが暗かったからレンタカーのヘッドライトをつけていたのだけど、エンジンを回してない状態だったため、 バッテリーあがっちゃった。エンジンかけてなかった、すがの隊長、及びそれに対するツッコミをしなかった隊員の凡ミス。

駐車場には俺らの車以外見当たらないし、携帯の電波も通じないので JAF を呼ぶこともできない。 最悪の場合、登頂を中止して、助けてもらうための行動をとらなくていけない。 とはいえ、「なんとかなんべ」と楽観的にバーベキューを食べる隊員。

そんで結局どうなったかというと、よくデジカメとか PC 、携帯とかってバッテリーが無くなっても、 しばらく放置するとちょっと使えたりするという原理があるじゃん。それを利用した。 つまり、バッテリーが上がったことを確認して、ヘッドライトを消して、しばらく時間がたってからエンジンかけると、復活！やったー！あっつん++

てなわけで、「バッテリーが無くなってもしばらく放置すれば多少は動くようになるよ」メソッドはいろいろな範囲で使えることがわかった。

バーベキューを終えて車中で少し寝てから登頂開始。 大菩薩嶺への山道はそこまで急な登りもないため結構楽。 ただ、俺がものすごい眠くなって歩きながら寝だしたことと、隊員K さんが途中でう○こするなどで、やっぱり目標タイムよりかなり遅れてしまった。

登っている様子、(右)頂上付近には残雪があった

朝の7時30分に出て13時に登頂完了。その後は大菩薩峠にて昼飯食って、ダッシュでもと来た道を下山。目標タイムよりも今度は早めで16時30分に駐車場に戻ってきた。ぶっちゃけるとこの大菩薩嶺、イベントが少ないのと道が単調だったので、すんごい面白いわけではなかった。でも、大菩薩峠から大菩薩嶺への尾根を歩くところなんて見晴らしがよくって気持ちがよかった。

菩薩峠からの景色

菩薩嶺登頂をよろこぶすがの隊長

恒例の自分撮りによる記念写真を撮影、隊長が写ってない＞＜

それにしても山を登っているとめちゃくちゃおならがでる。すかしも含めると50発くらいしたと思う。 「よく山に来て空気がおいしい」と言うけど、その空気の中には登山者のおならが含まれているに違いない。 おならがいい感じにスパイスになってからおいしく感じるのかな。 このように「山に登るとおならがたくさんでる」法則も実証できてよかった。

ということで、またおならをぶっこくため、あやうい探検隊は山に登ります。次回も楽しみです。

関連記事

• ゆーすけべー日記: 雲取山縦走登山、あやうい探検隊初企画
• ゆーすけべー日記: 北アルプス奥穂高岳登頂、あやうい探検隊第3弾

以前紹介した「これは便利！誰でも簡単にグラフを描けるAPIがGoogleから登場！『Google Charts』」ですが、PHPから簡単に操作できるようにしたライブラリが公開されています。

Google Charts APIをPHPから簡単に操作できるようにしたライブラリ『googChart』 | IDEA*IDEA」より

同じようにGoogle Charts API を扱う Perl 版が欲しかったので、WebService::Simple（0.09以上が必須） を継承する形で「WebService::Simple::Google::Chart」というモジュールを作ってみました。

パラメータを渡すと、その Chart のURLを返してくれて（get_url）、その Chart のイメージをファイルに書き出す（render_to_file）ことができます。以下がコードサンプルです。

use WebService::Simple::Google::Chart;

my $chart = WebService::Simple::Google::Chart->new;
my $url = $chart->get_url(
    {
        chs => "250x100",
        cht => "p3",
   },
    { foo => 200, bar => 130, hoge => 70 }
);

#http://chart.apis.google.com/chart?cht=p3&chl=bar%7Cfoo%7Choge&chs=250x100&chd=t%3A33%2C50%2C18
print $url . "\n";

#一度 get_url でパラメータを渡したら、ファイル名を指定するだけで書き出せる
$chart->render_to_file("foo.png");

特徴は、get_url 及び render_to_file の第2引数に、チャートにしたいデータを ラベル名 => 値 という形のハッシュリファレンスを渡せば、自動的に割合を出してくれて URL のパラメータにする点です。 なので、最大値をみつけて、それぞれの値をその数字で割るなんてことは不要になります（なるはずです）。 第一引数はデータ以外のチャートへのパラメータを書けばOKです。

WebService::Simple は LWP::UserAgent を継承しているので、今回のファイルに書き出すという機能が簡単に実装できました。実際 Chart.pm の中身はこんな感じでファイルに保存しています。

$self->SUPER::get( $request_param , ":content_file" => $filename );

CPAN はここ（ただし、0.01 はインターフェースが違う＆バグを持っているので 0.02 以上推奨）

• Yusuke Wada / WebService-Simple-Google-Chart - search.cpan.org

CodeRepos はここに置いておきます。修正、突っ込み大歓迎です。

• /lang/perl/WebService-Simple-Google-Chart - CodeRepos::Share - Trac

ちなみに、 Google::Chart という hanekomu さんが作っているそのものずばりのモジュールがCPANにあって coderepos にもレポジトリを移してもらいました。 が、しかし、これだとラベル表示ができなくて、対応するためにコードいじろうと手をつけてみたら、 設計までも変えてしまいかねないことに気づき、別モジュールという形で作ることにしました。ということでこれをhanekomu さんに見せたい。

サンプルを紹介する前にこの API の仕様について軽く解説。 ベースURL は

http://ajax.googleapis.com/ajax/services/search/web

で、それに以下のようなパラメータを渡すと結果が JSON 形式で返ってくる。

q : 検索クエリー
v : API のヴァージョン、現時点でのデフォルトは 1.0
rsz : 検索結果をどのサイズで返して欲しいか、デフォルトは small の4件、large を指定すると8件
hl : 何語のウェブから検索したいか、日本語の場合だと ja
start : 検索結果を何番目から取得したいか、デフォルトは 0、おそらく最大で 24 っぽい

詳しくはここを参照→Class Reference - Google AJAX Search API - Google Code

取得できる JSON の形式はこちらを参考に→Developer's Guide - Google AJAX Search API - Google Code

では、WebService::Simple を使ったサンプルを紹介。 WebService::Simple には JSON のパーサーもあるので検索結果を Dump するだけのスクリプトだったらこんな簡単に書けちゃいます。

my $google = WebService::Simple->new(
    base_url        => "http://ajax.googleapis.com/ajax/services/search/web",
    response_parser => "JSON",
    params          => { v => "1.0", rsz=> "large" }
);

my $response =  $google->get( { q => "cat" , start=> 0 } );
print Dump $response->parse_response;

次に、検索クエリーを入れるとその結果が表示されるだけの簡単な Web ページを作ってみます。 パースしたコンテンツをそのまま Template::Toolkit のテンプレートに渡すという方針です。 ただ、これを実現するにはちょっとしたハックが必要になりました。 JSON のモジュールを使ってパースされたオブジェクトには utf8 フラグが立ってないっぽいんですよ。 utf8 flagged な値も、TT に渡したいので、混在しちゃうと文字化けしちゃいます（その値を uri フィルターかけたいから、フラグを落としたくないのです、なんか間違ってたらツッコミください）。 そこで、以下のハックで JSON モジュールが返してくれるオブジェクトに utf8 フラグを立ててます。

use WebService::Simple;
use WebService::Simple::Parser::JSON;

my $parser = WebService::Simple::Parser::JSON->new; # パーサーを作る
$parser->{json}->utf8(1); # utf8 フラグが立ったオブジェクトを返してもらう
my $google = WebService::Simple->new(
    base_url        => "http://ajax.googleapis.com/ajax/services/search/web",
    response_parser => $parser, # パーサーオブジェクトを指定する
    params          => { v => "1.0", rsz => "large", hl => "ja" }
);

つまづいたのはこのくらい。完成版のPerl のコードと テンプレートは以下の通りです。

search.cgi

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use Template;
use WebService::Simple;
use WebService::Simple::Parser::JSON;

my $q     = CGI->new;
my $query = $q->param('query');
utf8::decode($query);
my $start = $q->param('start') || 0;

my $parser = WebService::Simple::Parser::JSON->new;
$parser->{json}->utf8(1);
my $google = WebService::Simple->new(
    base_url        => "http://ajax.googleapis.com/ajax/services/search/web",
    response_parser => $parser,
    params          => { v => "1.0", rsz => "large", hl => "ja" }
);
my $response = $google->get( { q => $query, start => $start } );

my $tt = Template->new();
my $html;

$tt->process(
    "search.tt",
    {
        query    => $query,
        response => $response->parse_response
    },
    \$html
);

print $q->header( -type => "text/html", -charset => "utf-8" );
print $html;

search.tt

<html>
<body>
<h1><a href="search.cgi">Google Search</a></h1>
<form action="" method="get">
<p>
<input type="text" name="query" value="[% query %]" />
<input type="submit" value="Google Search" />
</p>
</form>
<p>
[% SET count = response.responseData.cursor.estimatedResultCount -%]
[% IF count -%][% count %] pages[% END -%]
</p>
<dl>
[% FOREACH item = response.responseData.results -%]
  <dt><a href="[% item.unescapedUrl %]">[% item.title %]</a></dt>
  <dd>[% item.content %]</dd>
[% END -%]
</dl>
<div>
  [% FOREACH page = response.responseData.cursor.pages -%]
  <a href="?query=[% query | uri %]&amp;start=[% page.start %]">[% page.label %]</a>
  [% END -%]
</div>
</body>
</html>

ということで、Google AJAX Search API を WebService::Simple 使って利用してみました。 取得できる件数に制限があるのがちょっと残念ですが、この API なかなか重宝しそうです。

最初に、インターフェースの変更点をあげます。大きく変わったのは一点のみです。 例えば、Lingr の API を扱う場合、base_url は http://www.lingr.com/ になりますが、 各メソッドの URL は 例えば http://www.lingr.com/api/session/create という風に、メソッドごとに変化します。つまり base_url に api/session/create みたいなパスを追加したいということです。 そのためには、 get メソッド の パラメータ にそのパスを記載するんですが、0.03 の時と引渡し方が変更になっています。 第1引数に extra_path を指定するようになりました。

my $lingr = WebService::Simple->new(
    base_url => 'http://www.lingr.com/',
    param    => { api_key => "your_api_key", format => 'xml' }
);

my $response = $lingr->get( 'api/session/create', {} );

my $session = $response->parse_response->{session};

また、上記サンプルに記載されているように、get などで取得した WebService::Simple::Response オブジェクトをパースするには、parse_xml メソッドを今まで呼んででいましたが、parse_response メソッドを使うことを推奨しています（エイリアスを作っているので parse_xml でも動きます）。

あとは普通に使う分には今まで通りで問題ないです。 Flickr API を使ったキーワードによる検索結果を Dump するサンプルコードは以下のようになります。

use strict;
use warnings;
use WebService::Simple;
use Data::Dumper;

my $flickr = WebService::Simple->new(
    base_url => "http://api.flickr.com/services/rest/",
    param    => { api_key => "your_api_key", }
);

my $response =
  $flickr->get( { method => "flickr.photos.search", text => "cat" } );
print Dumper $response->parse_response;

response のキャッシュも以前と同じ書き方でできます。

use WebService::Simple;
use Cache::File;

my $cache = Cache::File->new(
    cache_root      => '/tmp/mycache',
    default_expires => '30 min',
);

my $flickr = WebService::Simple->new(
    base_url => "http://api.flickr.com/services/rest/",
    cache    => $cache,
    param    => { api_key => "your_api_key", }
);

次にこの WebService::Simple を継承したサブクラスを作って、もうちょっと楽に API を触れるという方法を紹介します。 例えば、Flickr API の flickr.test.echo 及び flickr.photos.search を呼び出す WebService::Simple::Flickr をこんな感じで作ります。

package WebService::Simple::Flickr;

use base qw(WebService::Simple);
__PACKAGE__->config(
    base_url   => "http://api.flickr.com/services/rest/",
);

sub test_echo {
    my ($self,$str) = @_;
    return $self->get( { method => "flickr.test.echo", name => $str } );
}

sub photos_search {
    my ($self,$str) = @_;
    return $self->get( { method => "flickr.photos.search", text => $str } );
}

そしたら外部から、よりスッキリとしたコードで API をたたくことができます。

use utf8;
use WebService::Simple::Flickr;
use Data::Dumper;

my $flickr =
  WebService::Simple::Flickr->new( param => { api_key => "your_api_key", } );

my $ref = $flickr->photos_search("富士山")->parse_response;
print Dumper $ref;

この API ごとにサブクラス化するという方法なんですが、Yappo さんが作った WebService::Simple::Cabinet を使う方法と、「ある API に特化したモジュールもしくはメソッドを作る」という点で似ています。WebService::Simple::Cabinet は YAML 形式などで API の定義をしますが、この場合は Perl モジュールを作っています。API を使うシチュエーションによってどちらか選ぶというのもいいと思います。

最後にパーサー、つまりAPI から返却されたコンテンツをパースするのに使うモジュールが選べるようになったという機能を紹介します。デフォルトでは XML::Simple でパースするようになっていますが、例えば XML::LibXML を使いたい場合は、WebService::Simple::Parser を継承して WebService::Simple::Parser::XML::LibXML モジュールを以下のように作成します（ このモジュールはWebService::Simple に同封されています）。

package WebService::Simple::Parser::XML::LibXML;
use strict;
use warnings;
use base qw(WebService::Simple::Parser);
use XML::LibXML;

__PACKAGE__->mk_accessors($_) for qw(libxml);

sub new
{
    my $class = shift;
    my $args  = shift || {};
    $args->{libxml} ||= XML::LibXML->new;
    $class->SUPER::new($args);
}

sub parse_response
{
    my $self = shift;
    $self->libxml->parse_string( $_[0]->content );
}

1;

それで利用するスクリプトからは、WebService::Simple のコンストラクタの引数 response_parser の値で使いたいパーサのモジュールを指定します。

my $service = WebService::Simple->new(
    base_url        => "http://api.flickr.com/services/rest/",
    response_parser => 'XML::LibXML',
    params          => { api_key => "your_api_key" }
);

これで面白いのは、とりわけ XML で結果が返ってくる API 以外にも対応するところです。 例えば、JSON もしくは JSONP 形式で返却される API を扱うこともできます。 WebService::Simple::Parser::JSON はもう既に定義済みのものがあるので、以下のようなスクリプトを書くだけで、JSON もしくは JSONP を パースしてくれてデータを利用することができます。

use strict;
use warnings;
use WebService::Simple;
use Data::Dumper;

my $flickr = WebService::Simple->new(
    base_url        => "http://api.flickr.com/services/rest/",
    response_parser => 'JSON',
    params          => { api_key => "your_api_key", format => "json" }
);

my $response =
  $flickr->get( { method => "flickr.photos.search", text => "cat" } );
print Dumper $response->parse_response;

あとは POST にも対応したので、使いたい場合は post メソッドを get と同じ引数形式で呼び出せばおｋだと思います。

dmaki（lestrrat）さん、tokuhirom に（まるごと）書き換えてもらった＆Yappo さんが WebService::Simple::Cabinet を作ったおかげで、面白いモジュールになった気がします。感謝です。

CPAN に最新版があがっているので、もしよろしければご利用ください。

• Yusuke Wada / WebService-Simple - search.cpan.org

詳しくは次のエントリーで、最新版の WebService::Simple について書くつもりなのでそれを参照してもらいたいんだけど、LWP::UserAgent を継承するようになったり、さらに Parser を自分で選択できるようになってたりと拡張性がまして面白い感じになっている。

その後もものすごい勢いで、dmaki さんは機能追加やバグ修正をしてくれて、さらに tokuhirom も一部のコードを書いてくれた。lestrrat++, tokuhirom++ そして trunk にマージしたので、昨日から CPAN にうｐってる。

つまり、最初に自分が作ったコードが CodeRepos 上にてスーパーハカーの人たちの手にかかり、もっとよく、もっと綺麗になったという感じ。これってすごい嬉しい。 単にモジュールの完成度が高まったこともその理由のひとつなんだけど、自分が作ったそのコンセプトをある程度認めてくれた（？）ということもあるし、コードが書き換わることによって「あ、こういう書き方があるのか！」という発見があってとっても勉強になる。

だからこんなモジュール欲しいなと思って、それが世の中に存在しないのであれば、自分のコーディングのレベルを気にせずにとりあえず動くものを作って CodeRepos にうｐればいいと思う。 もし気に入ってもらえれば、今回のようにスーパーハカーの人が直してくれたりするかもYO！ あと、CodeRepos の IRC 見てると、最近では、他のモジュールも lestrrat, tokuhirom, Yappo の3人がものすごい勢いでコーディングしているっぽくてその様子を見ると刺激を受ける。

そんなことが可能になる CodeRepos はすごくいいと思います、ということを言いたかった。CodeRepos++ これからも CodeRepos で勉強させてください！

• CodeRepos::Share - Trac
• /lang/perl/WebService-Simple - CodeRepos::Share - Trac

• id:dann のCatalystとMVC論 (15min)
• id:ikasam_a によるCatalyst::Controller::Resources (15min)
• $c <3 C (charsbar) (15min)
• コピペをしないための10の方法 (typester) (5min)
• Model::Adaptor的な話 (@hidek) (5min)
• yappo 2924あたりでも持ってきます (5min)
• Catalyst☆Complex tokuhirom (5min)

皆さん Catalyst Conference の癖に Catalyst を DIS りつつ、それを解決するためのそれぞれの方法や考え方を提案というパターンが主で、非常に面白かったです。 特に id:dann さんと id:ikasam_a さんはブログで Catalyst のネタを結構書いているのですが、今回実際にリアルの場での発表で、それぞれの考えを知ることができてよかったです。id:ikasam_a さんの Catalyst::Controller::Resources 、今まで触ったことがなかったのですが、発表聞くとかなりよさげなので使ってみたいと思います。

自分が Catalyst を使うケースって、仕事の受託開発ではほとんどなくて、pulpsite.net などで公開している yusukebe products が主です。 よって、全くの個人で開発していることと、サービスが小規模であるという点で、今回発表された方々とは多少違ったコンテキストで Catalyst を使っているのかなぁと感じました。 それを踏まえていい機会なので、Catalyst を今まで触ってきて、多少工夫しているところ、思っていることを（ほんの少し＆よく知られているものですが）挙げてみました。

Controller にロジックを書くのはよくない

少量のメソッドだったら MyApp.pm ?
モジュール化できるものはモジュール化(POPO)させる＋ Model::Adaptor
例: Web API / fetch して parse する / WebService::Simple
Logic を扱う名前空間を作ってそこに置く
→再利用性、テストがやりやすい

script/myapp_create.pl model ...

自前で DBIx::Class::Schema::Loader::make_schema_atを呼び出すスクリプトを作った方がいい

運用の時、アクセスの多い静的ファイルを Catalyst でサーブするのはマジ無い

mod_perl で処理する必要の無い静的コンテンツは mod_perl で扱わない

Config の YAML を環境によって書き換えてる

myapp_local.ymlを使う、最近はじめて知った

CLI から model というか DBIC を呼ぶ時にどうするか

CLI スクリプトに Catalyst の myapp.yml で定義した情報をコピペしがち、DRYじゃない＞＜
ベストな解決策はなんだろう

昔のコードとか今見返すととりあえず動けばいいや的にテラひどいコードになってるんですが（今もひどいが）、 最近になって再利用性とか URI の設計とか気にしだしました。 今回の発表内容や皆さんのブログの記事などで、もっと勉強していきたいと思います。

あーあと、補足として感じたことは、今回来れなかった人を含めどのくらいの人がどのように Catalyst を使っているのかもっと知りたいと思いました（ルータスイッチも含めるとYappoさんは自宅で Catalyst を使っているということで興味深い）。

第2回もあるかもしれないということで、とりあえず 発表者の皆さん、お疲れさまでした！＆会場を提供してくれたサイボウズラボに感謝！

moo-pong はかなりの数の展示を今までこなしてきたので、くそ重い展示機材が入ったスーツケースを持ち込むが大変だった点を抜かせば、あとは慣れっこって感じで無難にデモができました。 評価も概ね好評で見ていただいた方に感謝です。 ただ、他の展示のインパクトが強かったので、それにまぎれて存在感を出すのがなかなか難しかったかなと思います。moo-pong については公式HPに解説する動画とかあがっているので、興味ある方は見てみてください。

• moo-pong(ムーポン): 映像の万華鏡

出展者及び来場者の方の中で知っている人が結構いました。 Web+DB PRESS のイベントで知り合った、日経BPの矢崎さんがプレスでもなく、趣味でやっているという人力（？）飛行機のプレゼンをしに来ていたり、未踏仲間の沼さんも出展者として参加していて超久しぶりに再会をしたり、akio0911さんに初めてリアルで会ってエロ話に花が咲いたりしました。 来場者の中には、サイボウズラボのnishioさん、81忘年会の時に出会ったmomo_devさん、そしてYappoさんが子連れで来ていたりしました。YappoさんはGainerをやってモテタイと展示みて思ったとか思わないとか。また、「ゆーすけべーさんですよね？ ゆーすけべー日記見てますよ」と言ってくれた人も3人くらいいて嬉しかったです。

nishioさんとYappoさん（お子様にはモザイク処理をさせました）

自分（達）が作った moo-pong 、akio0911さんがやっていた「チョロQ を Ruby on Railsから操る」もそうなのですが、センサーやアクチュエイターを備えた物理的なモノを電子工作でこしらえて、PCと連動させるようなことはフィジカル・コンピューティングと言われています。 最近自分はソフトウェアよりのモノばかり作っているので、またフィジカル・コンピューティングなモノを作りたいといい刺激を受けました。やはり作れるモノの可能性がかなり広がりますからね。

次回もおそらくあるであろう「Make: Tokyo Meeting」。今後も楽しみです。

主催する Make というのは DIYや電子工作などをテーマとして扱っていて、 （眠っていた？）「工作心」に火をつけてくれるような雑誌です。 海外英語での展開だったのが、最近日本版が出版され、 それを受けて今回 Make Japan がイベントをするという流れのようです。

ということで展示やパフォーマンスは面白い仕掛けが盛りだくさんな気がします。 開催概要を以下に掲載しておきます。興味のある方は是非。

• 開催日：2008年4月20日（日）
• 時間：11時（開場）?16時（終了予定）
• 場所：K. International School Tokyoの体育館、グラウンド
  　　　東京都江東区白河1-5-15
  　　（東京メトロ半蔵門線、都営地下鉄大江戸線：清澄白河駅、B1出口徒歩1分）
• 参加費：無料

• MAKE: Japan: Make: Tokyo Meeting開催概要
• moo-pong(ムーポン): 映像の万華鏡

ところで、ListPod では認証に OpenID を利用しています。 バージョン2.0 にも対応しています。 そこで、現時点での会員の皆様がどの OpenID Provider を利用しているかのデータを見てみたいと思います。

2008年4月15日現在、ListPod において OpenID によるユーザー登録をした数は「1081」。 そのうちの OpenID Provider の利用トップは 614 件で「Yahoo! Japan（参考: OpenIDとは？ - Yahoo! JAPAN）」でした。 2位が「はてな（はてなでOpenID - はてな）」で351件、 3位が「livedoor（livedoor Auth OpenID(β)）」で56件となりました。実に1位の Yahoo! JAPAN は全体の57％を占め、2位のはてなが33％ということを考えるとダントツと言えます。全体の順位は以下のようになります（主要OP以外はその他の扱いにしました）。

me.yahoo.co.jp: 614 (57%)
www.hatena.ne.jp: 351 (33%)
profile.livedoor.com: 56 (6%)
openid.ne.jp: 26 (2%)
myopenid.com: 8
me.yahoo.com: 5
claimid.com: 2
vaginarepos.org: 2
coderepos.org: 1
openid4u.net: 1
vox.com: 1
other: 14

また、Google Chart API で全体を俯瞰する円グラフを作ってみました。こちらです。

実際に運用を始める前では、はてなの OpenID 利用が高いのではという予測でしたが、この結果を見て、Yahoo! JAPAN のシェアがこれほどまでか、と多少驚いています。 もちろん、この数値は ListPod というサービスにおいてですし、一人が複数アカウントを利用していることも想定されているので、一般的な OpenID Provider の利用率として考えることはできません。ただ、ひとつの目安になるかと思います。

Yahoo! JAPAN の利用が半数以上というのは、Open ID 2.0 の Provider であることで URL 入力が簡便になった点が一つあげられるのかと思います。しかし、当然のことですが、利用ユーザーがはてなや livedoor のアカウントに比べて、Yahoo! JAPAN のアカウントを使うことの方を優先したことが一番でかいでしょう。これは、利用者が Yahoo! JAPAN 以外の Open ID Provider のアカウントを持っていないことも含まれます。

はてなや livedoor などどちらかと言えば（偏見入ってますが）ネットに精通している人が使いそうな OP ではなく、より一般的なユーザーが多いと思われる Yahoo! JAPAN の利用が多いということで、OpenID はサービスによりけりで幅広い層の方に認知されていくのではないかと考えることもできます。 ターゲットユーザーにも関わってきますが、Open ID による認証を用いたサービスを作るに当たって今のところは、2.0 に対応させること、そして、Yahoo! JAPAN の OpenID からのログインが比較的多くなることを想定しよう、という結論ですかね。

とにもかくにも、ListPod はおそらく、OpenID が無ければここまでユーザー数が伸びなかったと思います。 これからも OpenID の今後に注目していきたいです。

関連記事

• ゆーすけべー日記: YouTube動画のお気に入りをPodcast化してiTunesやiPod で見れるサービス「ListPod」をリリースしました

「（さすがにヤヴァくて一部伏字だけど…）ビビるな！でも危険！」というメインの特集に ListPod と CDTube のあわせ技が2ページに渡って紹介されています。 そのページの題名は「最新ヒットPVをチャートから全自動で iPod に詰め込もう」です。 確かにヤヴァめです。

それにしても、ネトランのアングラ的精神はすごいっすね。 さて連続掲載の記録はこれ以上伸びるのか、できたら伸ばしたいものです。 今回も見本誌を送ってくれたネトランさんに感謝です。

自分はエンジニアとしても未熟だし、恥軸がずれているので、残念ながらこのリストには入れません。 なので、自分ができる限りのことをやって、少しでもこのリスト「ウェブエンジニア（略）と恥ずかしい日本人プログラマ300」の人達に近づけるように精進したいと思います。

OPML化はerogeekがやってくれると思うのでOPML作ったよエントリを発見し次第リンクします。

ということで、OPMLとリストだよ！ （TODO: WebScraperで最新版をとってきて更新するようにする）

OPML

• 300engineer.opml

リスト

yoshiori - java-ja

Yoshioriの日記

Google検索「yoshiori 」

ats - Python

TRIVIAL TECHNOLOGIES 2.0

Google検索「ats」

ひがやすお - Java

ひがやすを blog

Google検索「ひがやすお」

羽生章洋 - Java

羽生章洋さんのこと:矢沢久雄のソフトウエア芸人の部屋:ITpro

Google検索「羽生章洋」

mikio - Tokyo Cabinet

mikio.net Blog | Mickey's Diary

Google検索「mikio」

moritapo - Senna

倖田來未 vs 浜崎あゆみ

Google検索「moritapo」

gunyarakun - Senna

gunyarakun - スラッシュドット・ジャパン ユーザ

Google検索「gunyarakun」

mir - Tritonn Xen

mir the alternative

Google検索「mir」

kokogiko - mobile & Geo

ここギコ!

Google検索「kokogiko」

KENT - CGI

:: KENT WEB - CGIスクリプト ::

Google検索「KENT」

kawa.net - Perl Javascript WiiRemote

Kawa.net xp

Google検索「kawa.net」

kan - Wema Moxy

KAN FanSite & SEI FunSite ...

Google検索「kan」

knagano - emacs clone

Twitter / knagano

Google検索「knagano」

kazeburo - ロシアのWeb Server インフラ

kazeburo's blog - Vox

Google検索「kazeburo」

ひろせまさあき - DSAS

DSAS開発者の部屋:KLab勉強会#2の資料を公開します

Google検索「ひろせまさあき」

stanaka - はてなインフラ

とあるはてな社員の日記

Google検索「stanaka」

mizzy - Punc

mizzy.org

Google検索「mizzy」

lopnor - 下から上まで

id:lopnor

Google検索「lopnor」

HoryGrail - Yahoo top pgae

検閲削除>< - holy-grailの日記

Google検索「HoryGrail」

刺身☆ブーメラン - livedoor

【刺身でぐぐると】刺身ブーメランのはてなダイアリー【世界で五位】

Google検索「刺身☆ブーメラン」

machu - Ruby

Twitter / machu

Google検索「machu」

ただただし - Ruby tDiary

ただのにっき

Google検索「ただただし」

hiboma - 30days album

hibomaのはてなダイアリー

Google検索「hiboma」

naoya - はてなブックマーク

NDO::Weblog

Google検索「naoya」

itomasa - simpleapi

itomasaの頭寒即レス

Google検索「itomasa」

高林哲 - ttyrec

bkブログ

Google検索「高林哲」

typester - TTYShare

unknownplace.org

Google検索「typester」

古橋貞之 - Partty!.org

古橋貞之の日記

Google検索「古橋貞之」

cho45 - blosxom

nulog / nulog, NULL::something : out ...

Google検索「cho45」

lestrrat - Perl

lestrrat's fotolife

Google検索「lestrrat」

hio - Perlバイナリアン

タグ / HIO - livedoor Blog(ブログ)

Google検索「hio」

overlast - chumby

Twitter / overlast

Google検索「overlast」

halt - 武士道Hacker

/halt/Snapshot

Google検索「halt」

coji - ssb

cojiの日々の泡・??.。.:*・??.

Google検索「coji」

keisuken - Scala

航海日誌

Google検索「keisuken」

clouder - Imager

Clouder::Blogger

Google検索「clouder」

kazuho - Q4M

Kazuho Oku's Weblog

Google検索「kazuho」

tomi-ru - ルー

tokuhirom++ - tomi-ruの日記 - モバイルハッカー連絡会

Google検索「tomi-ru」

babie - RoR

ζ*'ワ')ζ<うっうー遅レス。

Google検索「babie」

bto - CTO

BTOの@Sycom(サイコム)[BTOパソコン BTO PC]

Google検索「bto」

fbis - Perl PHP mobile

Unknown::Programming

Google検索「fbis」

youpy - http://youpy.tumblr.com/

Acme::Youpy - Create your own youpy ...

Google検索「youpy」

nishio - Jython

Google検索「nishio」

hsbt - Ruby tDiary

Google検索「hsbt」

psychs - Lime Chat

Windchase

Google検索「psychs」

drry - robots.txt

drry+@->

Google検索「drry」

antipop - lisp

antipop

Google検索「antipop」

akio0911 - Ruby Cocoa

佐藤伸吾(akio0911)のユビキタスTumblr

Google検索「akio0911」

tmaesaka - memcached

mixi Engineers' Blog " tmaesaka

Google検索「tmaesaka」

yoshidaster - ZIP

yoshidasterのPlnet

Google検索「yoshidaster」

brazil - javascript UI

Google検索「brazil」

ゆーすけべー - 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>