|
Revision 16671, 1.3 kB
(checked in by tokuhirom, 5 years ago)
|
|
TAGS できた!
|
| Line | |
|---|
| 1 | [% TAGS asp -%] |
|---|
| 2 | <% WRAPPER modern_introduction_perl/wrapper.tt, |
|---|
| 3 | title => "Template-Toolkit - モダンなPerl入門", |
|---|
| 4 | last_modified => '$Date: 2008-05-22T09:21:23.154313Z $' |
|---|
| 5 | -%> |
|---|
| 6 | <%- USE Markdown -%><%- FILTER markdown -%> |
|---|
| 7 | |
|---|
| 8 | Template-Toolkit |
|---|
| 9 | ============================================================================== |
|---|
| 10 | |
|---|
| 11 | Template-Toolkit は perl の世界でもっともよく使われているテンプレートエンジンの一つです。 |
|---|
| 12 | |
|---|
| 13 | ### つかいかた |
|---|
| 14 | |
|---|
| 15 | # hoge.pl |
|---|
| 16 | use strict; |
|---|
| 17 | use warnings; |
|---|
| 18 | use utf8; |
|---|
| 19 | use Template; |
|---|
| 20 | use Template::Provider::Encoding; |
|---|
| 21 | |
|---|
| 22 | binmode STDOUT, ':utf8'; # オマジナイ |
|---|
| 23 | |
|---|
| 24 | my $tt = Template->new( |
|---|
| 25 | LOAD_TEMPLATES => [ Template::Provider::Encoding->new ], # テンプレートファイルを utf8 flag つきでロードする |
|---|
| 26 | ); |
|---|
| 27 | $tt->process('hoge.tt', { author => "アンディ" }, \my $out) or die $tt->error; |
|---|
| 28 | print $out; |
|---|
| 29 | |
|---|
| 30 | # hoge.tt |
|---|
| 31 | わたしのなまえは [% author %] です。 |
|---|
| 32 | |
|---|
| 33 | ね。かんたんでしょ。 |
|---|
| 34 | |
|---|
| 35 | ### テンプレートファイルを utf8 以外で記述したいのですが。。。 |
|---|
| 36 | |
|---|
| 37 | [% USE encoding 'cp932' %] |
|---|
| 38 | |
|---|
| 39 | のように書くとよい。 |
|---|
| 40 | |
|---|
| 41 | ### 備考 |
|---|
| 42 | |
|---|
| 43 | Template::Stash::ForceUTF8 は、BK なのでできるだけつかわないようにしたほうがよいでしょう。 |
|---|
| 44 | |
|---|
| 45 | <%- END -%><%- END -%> |
|---|