- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- Perl/テンプレートエンジン/Template-Toolkit（基本） へ行く。
- 1 (2009-10-27 (火) 12:39:42)
- 2 (2009-10-27 (火) 13:54:57)
- 3 (2011-06-11 (土) 06:00:56)
#title("Template-Toolkit - 基本")
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
参考
