どんぞこ日誌

* [Perl][メモ] TTの前処理について教えてください

　　template toolkitでテンプレートファイルを読み込んだときに何らかの処理をしたいのですが、ざっとドキュメントを見渡してもそのためのAPIなりオプションなりが見つかりませんでした。下記のような強引な方法で対処しているのですが、誰かご存じでしたら教えてください。

 BEGIN {
  local $^W = undef;
   my $orig = \&Template::Provider::_load;
   *Template::Provider::_load = sub {
     my ($data, $error) = $orig->(@_);
     Encode::from_to($data->{text},'shiftjis', 'utf8');
     return ($data, $error);
   };
 }

追記：経過報告

* [今月のAcme] あの通貨単位をねらえ

　　「Perlって変数の頭に$がつくのがダサイよね」 とはよく言われる話です。もう20回ぐらい言われたり見たりしてませんか？　そこでAcme::Currency。　アメリカドル以外も使えるようになりますよ！　えっ？　そういうことが問題じゃない？

 use Acme::Currency qw(\\);
 \en = '\100';
 print \en;

　　予想されるようにFilter::Simpleで実現されていますが、FILTER_ONLYでcode指定だから文字列には影響を与えないというわけ。ふぅ、これで今年の今月のAcmeはおしまい。

　　や、本年最後のAcmeはこっちか！　Acme

* [雑感] 非常にどうでもよいことかもしれませんが

　NHKの今日からマ王のページ、わざわざ”○にマ”をGIF画像にして実現していることにほんの少しだけ感動しました。

* [雑感] 誕生日

　今年も一年無事に過ごすことができましたことを世界に感謝いたします。　ちゅうか、もう六捨七入とか切り捨てとかいってられない年ですよ。　とりあえず人生の半分は終わったかな。