Drkcore

23072007 Catalyst drkcore

オレオレ記法を用意した

CPANは良く引用するので。

[CPAN : DBIx::Class]

でperldocにリンクが張れる。

あとAmazonのやつはJSONプロキシみたいなの用意してMochikitでDOM組み立てしようとしたのだけど、なんか微妙だったので、これまた記法を用意したが、文字化けしたりとか著者とかArtistのタイトルのとことかいろいろ直さないと駄目。

22072007 music drum'n'bass

Solitary Native / Alix Perez and Sabre

アートコアめ。綺麗なウワモノが気持ちよい。終始緩く流れていく感じで、やたらと高揚感を煽るようブレークもなく落ち着く。

SGN:LTDってレーベル知らないやってことで、少し視聴してみたけど、リキッドファンクとかそういう系のレーベルなのかな。甘酸っぱさ多目のカルピス系ってことで。Ill Note Soulなんかもよいですな。

Solitary Native / Alix Perez and Sabre

22072007 chemoinformatics

OSRAいいですよ

Mining Drug Spaceで知ったOSRAっていう化学構造認識ソフトがかなりよさげ。

そもそも、なんでコンピューターで認識できる形式でデータを流通させないのか?という本質的な問題はあるんだけど、この業界は画像(しかも二次元)ってのが標準なんで、こういう認識系のツールは重要だったり。

早速pubchemなんかの画像を認識させてみるときちんと認識される。OSRAのサイトではパテントをgifに変換したのを用意しているけど、1ページに複数の構造があっても別のものとしてきちんと認識する。ただ、フリーハンドで書いたのはベンゼンみたいな単純なものでも認識しなかった。

osra

自分用に集めてるパテントとかジャーナルのpdfなんかを自動的に構造抽出してデータベースに突っ込むようにするとよいかも。

21072007 ramen 御殿場

ひさびさの喜八郎

御殿場のIC近くにある喜八郎。店主が一人で作ってるのと、一度に茹でられる麺の量の関係だと思うんだけど、待ち時間が結構長いので、子供ができていたから敬遠してたけど。

12時前に入店したけど、その時点で待ちが7人くらい。結構繁盛してますなー。

15分ほど待った後、席に。一年ぶりくらいなんだけど、子供用の椅子が新たに装備されてた。ナイス!でライスも注文(ユッキー用)

こんな感じで、収まってます。

頼んだのは、ラーメン塩味。鶏のコクと、焦がし玉葱がいい感じにマッチ。あとチャーシューうまい。でも奥ゆきがちとばかし物足りなかったかな。醤油にしとくべきだった。

あと、店を出たら会社の人がタバコ吸いながら、バガボンド座り読みしながら待ってた。氏曰く、

「おれっち、週一ぐらいできとるけんねー」

と。その待ちスタイルはかなり馴染んでた。

21072007 perl

HTML::Selector::XPath::Simple

他のサイトをゴニョゴニョやって欲しいデータだけ抜き出すのに、Template::Extractとか正規表現つかったりするわけですが、今回HTML::Selector::XPathを使ってみた。

その流れでcpanサーチしてた時に、Simpleってのを見つけたが、これはHTML::TreeBuilder::XPathでHTMLをパースし HTML::Selector::XPathのCSS セレクタをXPath に変換して、ノードを探すってのをやってくれるげなモジュール。

というわけで、Hatena::Diary::Naoyaの例だと、

use strict;
use warnings;

use URI::Fetch;
use HTML::Selector::XPath::Simple;

my $id = shift or die "usage: $0 <id>";
my $res = URI::Fetch->fetch(sprintf 'http://b.hatena.ne.jp/%s/', $id)
    or die URI::Fetch->errstr;

my $selector = HTML::Selector::XPath::Simple->new($res->content);
my @nodes = $selector->select('ul.bookmarkinfo li.favorited');

printf "User '%s' is favorited from %d users\n", $id, $nodes[1];

で書けた、シンプル。

21072007 三島 XOOPS