| トップページ |

2010.08.20

HTML::Templateでテンプレートを読み込むときUTF8フラグ付ける

このエントリーをはてなブックマークに追加 mixiチェック

昔作ったPerlスクリプトをメンテナンスしてたらこんなコードがあったよ。

use utf8;
use HTML::Template;
 
open $fh, "<:utf8", 'hoge.tmpl' or die $!;
my $t = HTML::Template->new (
  filehandle => $fh,
);
close $fh;

これは、HTML::Templateを使いたいのだけれども、テンプレートに差し込む文字列がUTF8フラグ付きなんで（XML周り扱うとUTF8フラグ付いていた方がいいときあるよね）、テンプレートもUTF8フラグ付で読み込んでおきたいっていう話なんだけれども。

こんなのにいちいちファイルハンドル渡して読み込むのってスマートじゃないってことでこんな風に。

use utf8;
use HTML::Template;
 
my $t = HTML::Template->new (
  filename => 'hoge.tmpl',
  filter   => sub { utf8::decode( ${ shift() } ); },
);

いかにもPerlが嫌いになりそうなコードなので、filterのところを書きなおすと、

filter   => sub { my $r = shift; utf8::decode( $$r ); },

とか、

filter   => sub { my $r = shift; $$r = Encode::decode_utf8( $$r ); },

とか書けるよ。

以下を参考にしたよ。

2010.08.20 午後 12:30 [Perl] | |

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/19018/49198635

この記事へのトラックバック一覧です: HTML::Templateでテンプレートを読み込むときUTF8フラグ付ける:

コメント

コメントを書く






Sony Style（ソニースタイル）

検索


  • Google
    Web blog 内   

プロフィール

あわせて読みたい

カテゴリー

総エントリー数：3815

ﾅﾐﾓﾆ

  • PowerEdge T105

    • DELLのサーバ（意外に安価）。64bitLinux載っけるといいよね、ちょっと高くなるけどRAIDオプションとHDD２台構成にしておくと安心です。

最近のコメント

RSS

最近の記事

○○○

最近のトラックバック

バックナンバー

RSS 1.0 RSS 1.0
はてぶカウンタ++
スカウター : M.C.P.C. ―むり・くり―プラスコミュニケーション
フィードメーター - M.C.P.C.