Catalyst は Perl の Web アプリケーションフレームワーク。
そのため、

- ひな形からアプリを作る際の自由度
- Perl である故の自由度

のような自由度が絡み合って、
クールで、より多くの部分が再利用可能な、
開発、運用時にトラブルの少ない開発ポリシーは、
未だに「コレ！」というものが、あんまりないですよね。

先日というか、結構前におもしろかったのは、typesterさんの記事。

- Catalystアプリオレオレポリシー
-- http://unknownplace.org/memo/2008/02/29#e002

YAPC::Asia 2008 の公式サイトがリニューアルしたのと同時に、
スポンサーとスピーカーが公開になりました。今年もかっこ良いデザインです！

- YAPC::Asia 2008 - May 15-16th in Tokyo, JAPAN
-- http://conferences.yapcasia.org/ya2008/



今年も多くのスポンサーに支えられ、さらに多くのスピーカーが参戦してくれます。
志の高いみなさんが、すごい勢いでイベントに足を運んでくれでしょうし、
きっと最高のイベントになるのでは。わくわくしてます。

チケットの販売開始はもうすぐみたいですから、うっかり忘れないようにしてくださいね。

チケットを購入してくださる方は、「チケットがうっかり不要になったら、頑張って他の人に譲るぜ！」という気持ちで購入して頂けると、「残念なことにチケットを買えなかった人」が、たくさん救われるような気がして嬉しいです。

ボランティアスタッフも、まだ若干名ですが募集していると思います。
僕はYAPCで多少人生が変わったので、変わろうとしている方にボランティアで貢献することをおすすめします。

YAPC::Asiaまで、あと2ヶ月を切りました。
5/15、 16付近はスケジュールをバッチリ開けておいてくださいね。 m(_ _)m

Twitterを眺めたら、yasnippetという単語が見えたのでググりました。

- yasnippetがすごい!!!!1112345! - antipop
-- http://d.hatena.ne.jp/antipop/20080314/1205517419

Catalyst でアプリに依存しない Model は再利用できるようにしたいです。
けれど、標準のヘルパースクリプトだと、
「MyApp::Model::*」以下に作ることになってしまいます。

そうすると、無駄に Model のパッケージ名も長くなるし、
なにより Model が Catalyst に依存することになり、
テストしにくくて死ぬってことで、良いことが無いです。

既存のモジュールを取り込むために、
Catalyst::Model::Adaptor使っても、なんかいまいちな感じ。

ということで、今日このごろの議論を眺めていると、
以下のような方向でまとまりそうです。なるほど。

- はてなブックマーク - タグ catalyst
-- http://b.hatena.ne.jp/t/catalyst?sort=eid

ファイルが更新されたら何かするスクリプトを書きました。

（任意の）ロックファイルに、対象ファイルを前回処理したときの
対象ファイルのタイムスタンプを保存しておきます。
スクリプトをcronとかで回して、対象ファイルの更新時間が変わっていたら、
指定したスクリプトを走らせるという、単純なものです。

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use IO::File;

my $target_file = $ARGV[0];
my $lock_file = $ARGV[1];
my $process_file = '';	
unless ($ARGV[2]) {
   $lock_file = $ARGV[0].'lock';
   $process_file = $ARGV[1];
}
else{
   $process_file = $ARGV[2];
}

unless (-e $target_file) {
    die "[error : cl_auto_compile] There is not target file to auto process.";
}
my $pre_time = localtime( (stat($target_file))[9] );

# 処理する必要が無ければ止める
if (-e $lock_file) {
    my $io = IO::File->new($lock_file, 'r') or die $!;
    my $line = $io->getline;
    $io->close;
    if ($pre_time eq $line){
        exit;
    }
}
# 処理を書いたファイルを実行する
{
    my $io = IO::File->new($lock_file, 'w');
    $io->print($pre_time);
    $io->close;
    eval{`$process_file`};
}
exit;

# 実行方法
# ./auto_process.pl 対象ファイルのパス 処理を書いたファイルのパス
# ./auto_process.pl 対象ファイルのパス 対象ファイルのロックファイルのパス 処理を書いたファイルのパス	

少し前に、写真をブログ用に縮小する Perl スクリプトを書いたのですが、
どうも生成される画像の質がよろしくありません。

かなりストレスを感じたので、Imager のマニュアルに目を通すと、
以下のような趣旨の一文が見つかりました。