おいぬま日報(不定期)

@ [life] 訃報

父が亡くなりました。といっても4日前の話ですけど。享年55歳の比較的短い人生でした。というわけで、今週は仕事はお休みしてます。

@ [book] レベル7

初めて読んだ宮部みゆきの本。病院の待ち時間などに読んでました。回りの人が騒ぐだけあって、なかなかです。ストーリの展開が巧妙だなと思いました。

@ [emacs] migemo

C-sでローマ字を入力するだけで、日本語の文字列をヒットさせてしまうと言う優れもの。こんな便利なモノをなぜ今まで使ってなかったんだろう。

@ [net] 現在のグローバルIPを知る最も簡単な方法

checkip.dyndns.orgにアクセスする。以上(笑)

@ [zsh] zshでsvnのエラー

_svn_command:5: bad set of key/value pairs for associative array

会社でzsh使い始めたらこんなエラーが...svnコマンドが出力するメッセージに日本語が含まれていることが原因らしいので、下記を~/.zshenvにセットして回避しました。でもこれ家のマシンでは出ないんですよね。なんでだろう。。。

export LC_COLLATE=ja_JP.eucJP
export LC_CTYPE=ja_JP.eucJP
export LC_MESSAGES=C
export LC_MONETARY=ja_JP.eucJP
export LC_NUMERIC=ja_JP.eucJP
export LC_TIME=C 

@ [cpan] HTML::Templateのfilterって使えるかも

Perlには HTML::Template というすごくシンプルなテンプレートエンジンがあるのですが、これにfilterという、シンプルさを至高の哲学としているこのモジュールにはありえないような機能があることに最近気付きました。以下は軽いサンプル。

#!/usr/bin/perl
 
use strict;
use HTML::Template;
 
my $html = <<"EOS";
<TMPL_FILTER NAME="hoge">
あべし
EOS
    
print "--- before ---\n";
print $html, "\n";
my $t = HTML::Template->new(
    scalarref => $html,
    filter => sub {
        my ($text_ref) = @_;
        $$text_ref =~ s/<tmpl_filter\s+name="?([^"]+)"?>/$1/ig;
    },
);
print "--- after ---\n";
print $t->output;

実行結果はこんな感じです。

--- before ---
<TMPL_FILTER NAME="hoge">
あべし
 
--- after ---
hoge
あべし

コンストラクタでfilterという名前のサブルーチンを渡してやるとそれがフックとして実行される感じです。上の例だと<TMPL_FILTER>というタグをフィルタして取り除いています。これを使えば<TMPL_VAR>の値をデフォルトで勝手にHTMLエスケープするとか、みたいなタグを /hoge.css?200811280235 のように、ファイルのタイムスタンプ挿入したりすることができそうです。モジュールのPODっていうのは隅々まで読んでみるものですな。