編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

Template-Toolkit (基本)

テンプレートファイルを読み込み、パラメータを差し替え、表示する。

use Template;
 
my $tt = Template->new( {} ) || die "$Template::ERROR\n";
my $vars = { name => 'TARO' };
$tt->process('file.tt', $vars);

↓テンプレートファイル(file.tt)

hello, [% name %] !

ファイルハンドルを読み込む場合

use Template;

my $tt = Template->new( {} ) || die "$Template::ERROR\n";
my $vars = { name => 'TARO' };
$tt->process(\*DATA, $vars);
__DATA__
hello, [% name %] !

変数を読み込む場合

use Template;

my $tt = Template->new( {} ) || die "$Template::ERROR\n";
my $vars = { name => 'TARO' };
my $tmpl = 'hello, [% name %] !';
$tt->process(\$tmpl, $vars);

表示せず、結果を変数に入れる場合

use Template;

my $tt = Template->new( {} ) || die "$Template::ERROR\n";
my $vars = { name => 'TARO' };
my $tmpl = 'hello, [% name %] !';
my $output = '';
$tt->process(\$tmpl, $vars, \$output

UTF8フラグ下で利用する

use utf8;
use Encode;
use Template;

my $tt = Template->new( {ENCODING => 'utf8'} ) || die "$Template::ERROR\n";
my $vars = { name => '太郎' };
my $tmpl = 'こんにちは, [% name %] !';
my $output = '';
$tt->process(\$tmpl, $vars, \$output);
$output = Encode::encode 'utf8', $output;
print "$output\n";

http://search.cpan.org/perldoc?Template::Provider

参考


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2011-06-11 (土) 15:47:06 (2416d)