Template::Toolkitを始めよう - 初心者だけどPerlが大好き

ちょっと　更新の時間が空いてしまったんですが
パソコン壊れていたので
アマゾンで円高還元セールで本を買って読んでいました。
Perl Template Toolkit (ペーパーバック)

Darren Chamberlain (著), David Cross (著), Andy Wardley (著)

参考価格: ￥ 3,730　　　　US39.95ドル　　アマゾン価格：￥ 3,291
ペーパーバック: 574ページ
出版社: Oreilly & Associates Inc; 1. A.版 (2004/03)
言語英語,　　　　発売日： 2004/03
商品の寸法: 23.2 x 17.8 x 3.4 cm Andy Wardley (著)

その前に　utf-8　フラグというのが　非常に重要になってきます
そのことは　残念ながら　この本には書いてありませんでした

参考にしたのは　HatenaDiaryXXXXXXXXXXXXXXDiary　さんの記事
http://d.hatena.ne.jp/maeyan/20081003/1222966950 です。
とても勉強になりました。転ばぬまえの杖です
ありがとさん

さて最近　ブラウザは　FireFox 使っています。
Windowesだとブラウザで強制的にShift-jis画面になるじゃあないですか
でエンコードをutf-8にして
「あ、ちゃんと表示されてるじゃん-キャッキャッ」と確認するのがイヤになりました
それでは　いきますよう

test003.pl　を作成してね

Template::Toolkitのモジュールは　PPMからインストールしてください
Encode.pm　はコアモジュールです

#!D:/xampp/perl/bin/perl       #Cドライブの人はCにしてね
use strict;
use warnings;
use utf8;
use Template;
use Encode;
print "Content-type: text/html\n\n";
my $template = Template->new(UNICODE  => 1,
                ENCODING => 'utf-8',
                       );
my $vars = {name =>"トリニティ"};
$template->process('test003.tt',$vars,\my$output) or print $template->error();
print encode('utf-8', $output);

test003.tt

<html>
<body>
<h1>テスト</h1>
Hello World! こんにちは [% name %] さん。
</body>
</html>

で　http://localhost/test003.pl を起動してください
テスト
Hello World! こんにちはトリニティさん。

と表示されましたら　成功です