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 )

早速予約。

改行が変だ。

あとでナオス。

Perl Best Practices届いたので読む。

Perl Best Practices
Damian Conway
Oreilly & Associates Inc / 3034円 ( 2005-08 )

サイン本うらやましいっす。

潤という新潟ラーメンの店にいったら、改装中で休み。向かいにあった店にはいった。汐ラーメン。

フライパンで焦げ目をつけた豚トロっぽいのがいい感じだったが、全体的にあっさりというか塩がたっていた感じが。

この前書いたのイマイチ かつYAPCのCatalyst話参考になったので、早速書き直してみた。

__PACKAGE__->config(
        tagcloud =>{
                levels => 10,
                limit => 3
                }
);

な感じでレベルとリミット設定できるようにした。

でも、実際に使ってみると、

sub default : Private {
    my ( $self, $c ) = @_;

my $tags = [
        {tag=>"tag1",url=>"url1",count=>5},
        {tag=>"tag2",url=>"url2",count=>15},
        {tag=>"tag3",url=>"url3",count=>8},
        {tag=>"tag4",url=>"url4",count=>20},
        {tag=>"tag5",url=>"url5",count=>3}];

my $html = $c->create_tagcloud($tags,"html_and_css");
    # Hello World
    $c->response->body( $html );
}

みたいに配列のリファレンスを用意しないといけないのが駄目ゲ？セーフゲ？わからん。

• testとか書いてない(今後覚える、というかやる)
• blahが多い（blur派だからしょうがない？）
• Module::Starterつかうべしなのにh2xsではじめてしまった。

な感じで、やりかけだけど、ココから落とせます。もっと、小洒落たやりかたがあれば指摘してもらえると助かります。

XSの話とCatalyst関連の話題が面白かった。XSのサンプルは後でいじってみる。科学技術計算系のゴリゴリやるやつはやっぱCとか書けるようにしといたほうが幅が出ていいのかナァなんて思っているのでこれをきっかけに少し頑張ってみるかな。

Catalystは最近プラグインつくってみたかったりするので今日の話はなるほどなところが多くて参考になった。

Larry WallのKeynoteは面白かったが、深すぎてついていけないところが多々あった。

そして、気になるといえばYAPC::Asia 2006 Tokyoも気になる。面子が、、、、

豪華すぎ

とってもとっても行きたいが平日なんだよね。

でYAPCの読みなんだけど、「ヤップクニセンロク」って勝手によんでるんだけどホントはどう読むのが正しいのだろか?

追記060330

ヤップシーって読むそうです。

• × ヤップク
• ○ ヤップシー

あとKwikiをケーウィキとよんでたんだけどクウィキって読むみたい。