Cat Paw Software

この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。

====== Template Toolkit ======
Perlのテンプレートエンジン

===== 文字化け防止 =====
文字化け防止の一例

  * テンプレートファイルをUTF8で書き、newするときにENCODINGにutf8を指定してUTF8フラグを立てる
  * テンプレートパラメータにはUTF8フラグ付きのデコード済み文字列を渡す
    * フォーム等の入力値に対して、全てUTF8フラグを立てる。
    * スクリプトファイルもUTF8で書き、use utf8 するとスクリプトに直接書かれたリテラルはフラグ付きになる
  * 書き出す時にbinmodeでエンコーディングを指定、ここで変更することで、shift_jisで出す事もできる

<code perl>
$template = Template->new({ ENCODING => "utf8" });

use utf8;
my $result;
$template->process("テンプレートパス", { hoge => "ああああ" }, \$result) or die $template->error;
binmode STDOUT, ":utf8";
#binmode STDOUT, ":encoding(euc-jp)";
print $result;
</code>

CGI.pmのフォームの入力値をUTF-8セット

<code>
for my $p($cgi->param) {
    my @v = map { Encode::decode_utf8($_) } $cgi->param($p);
    $cgi->param($p, @v);
}
</code>

[[http://djodjo.jp/archives/314|CGI.pmで受けたパラメータを一度にUTF8に対応にする - 蜘蛛の糸をつむぐには…]]