京都の和久博（カフェ）でぜんざいを。

まったりした雰囲気で、くつろぎ度120%。ぜんざいもほうじ茶もおいしかったが、U隊長の頼んだ玉露がえっ玉露ってこんなにおいしいんだってくらい旨かったのでちょっと感動した。

はてなのブックマークをPodcastに対応させるためにenclosure要素のlength属性をどうしようかなと考えていたが、結局LWP::SimpleとかLWP::UserAgent使って、ヘッダーとってきて調べることにした。

my $request = new HTTP::Request('HEAD', $url);
my $response = $ua->request($request);

if ($response->is_success) {
   print $response->content_length;
}

Manpage of CUT

cut - ファイルの各行から文節をとりのぞく

大抵perlで処理してしまうんだが、cut -d , -f 1 list.txtなんてやると,で区切られた列の1番目が取り出せる。

cut | sort | uniqと組み合わせれば便利かも。

最近、化学反応をプログラミングすることが多いので、人名反応ぐらい押さえておくかな的に衝動買い。

Strategic Applications of Named Reactions in Organic Synthesis
Laszlo Kurti
Academic Press / 9274円 ( 2005-03-18 )

4色刷りで見やすくてよいし、有機電子論がなかなか。これみながらPerlMolで一通りモジュール用意しておくかな。

蒲田駅西口すぐの旭屋で醤油ラーメン。塩ラーメンが売りらしいが、敢えて醤油。

店内、結構とんこつな香りがします。とんこつといえば京都の高安うまかったなぁ。

醤油ラーメンはコテコテというわけではなくややコテって感じ。まぁまぁだったかな。

XML::RSSでCDATAセクション埋め込むときは

my $rss = XML::RSS->new(encode_output => 0);

とencode_outputを0にしてやる。

せっかくTaggingプラグイン使っているんだからこれとカテゴリを使ってAWSをいじくるプラグインでも作ろうと思い立った（まぁ、要するにDrk7.jpのAmazon Searchみたいなものなんだけど）。

が、AWSを見たところ、このサイトのblogのカテゴリとタグがAWSのそれとうまくマッチしないことが判明(タグにmusicとか入れてるし)。

なんで、全部metaで指定するように仕様を変更。awsxomプラグインを参考にして作った。

• meta-mode: Webサービスのモードを指定します。デフォルトはbooks-jp
• meta-seachtype: 検索方法を指定します。デフォルトはキーワード検索
• meta-searchword: 必須。指定するとプラグインが呼び出されます
• meta-metawsxomtemplate: テンプレートの指定です。example.htmlをテンプレートにしたい場合はexampleと指定してください。

基本的にはmeta-searchwordだけ入れとけば動きます。モードとかはココが参考になるかも。

ある程度動くようになって満足したのだが、まだいくつかちゃんとやれてないとこがあるのでそのうち直すが、いまわかっているのはこんなとこ。

• レイアウトとデザインがイマイチでCSS書くのに疲れてtableで整形(ダサ気?ダサくなさ気?)
• awsxomみたいにテンプレートも指定できるのだがテンプレートに日本語入れると化ける
• 上にも関連するのだが、Encodeを使うはめになっているのが謎。というかここんとこちゃんと理解してナイっぽいゾ。指摘してもらえるとありがたいかも
• レビューが最新の3件じゃない?

ダウンロード

ちなみに、metaプラグインが必須です。あとXMLの解析にXPath使っているのでperlのモジュールインストールしないといけないかも（これって標準なのかわからん）。

追記060404

• 必要なblosxom plugin
• meta
• 必要なperl module
• XML::XPath
• MD5::Digest

時間が出来たらPlagger+Last.fmやってみたいなぁと思っているんだが、とりあえずMP3::Podcastを使ってうまくいくか試してみた。

last.fm-ripper使うと指定したディレクトリにmp3がたまるので、MP3::Podcastで連携しやすい。

#!/usr/bin/perl

use MP3::Podcast;
use strict;
use warnings;

my $dirname = "[MusicDIR]";
my $urlbase = "http://[URL]";
my $dir = "/";

my $pod = MP3::Podcast->new($dirname,$urlbase);
my $rss = $pod->podcast($dir,"kerolincast");
print $rss->as_string;

なかなか快適な感じです。

あと、かま田さんとこで知ったんですが、はてなブックマークにmp3が登録できるようになったそうなんで、Plagger::Plugin::Publish::PodCastを利用すれば、かまックマーク->かまックキャストとか、、、つまり、Plagger使ってはてなブックマークでPodcastingできるかなとか思ったヨ。

でもlengthどうやってゲットするのがいいのかな?

というか、はてなにアカウント作ろうか、、、、

レディオヘッドのカバー、Matthew HerbertとかCinematic Orchestraのカバーが気になる。

Exit Music: Songs for Radio Heads
Various Artists
Rapster / 2097円 ( 2006-04-08 )

早速予約。

改行が変だ。

あとでナオス。