Changeset 16718 for websites/perl-users.jp/ttroot

Timestamp:

07/28/08 02:46:58 (5 years ago)

Author:

tomi-ru

Message:

ENCODINGの件

Files:

• websites/perl-users.jp/ttroot/modern_introduction_perl/template-tt.html (modified) (2 diffs)

websites/perl-users.jp/ttroot/modern_introduction_perl/template-tt.html

@@ -18 +18 @@
     use utf8;
     use Template;
-    use Template::Provider::Encoding;
-
-    binmode STDOUT, ':utf8'; # オマジナイ
-
+    
     my $tt = Template->new(
-        LOAD_TEMPLATES => [ Template::Provider::Encoding->new ],                      # テンプレートファイルを utf8 flag つきでロードする
+        ENCODING => 'utf-8',  # utf-8で保存されたテンプレートファイルを utf8 flag つきでロードする
     );
     $tt->process('hoge.tt', { author => "アンディ" }, \my $out) or die $tt->error;
+    
+    binmode STDOUT, ':utf8'; # utf-8で出力するというオマジナイ
     print $out;
+
+    # または
+    # use Encode;
+    # print Encode::encode('utf-8', $out);
 
     # hoge.tt
@@ -33 +36 @@
 ね。かんたんでしょ。
 
-### テンプレートファイルを utf8 以外で記述したいのですが。。。
+#### テンプレートファイルを utf-8 以外で記述したいのですが。。。
+
+    my $tt = Template->new(
+        ENCODING => 'euc-jp', # とか
+    );
+
+### Template::Provider::Encoding を使う方法
+
+    # hoge.pl
+    use strict;
+    use warnings;
+    use utf8;
+    use Template;
+    use Template::Provider::Encoding;
+
+    my $tt = Template->new(
+        LOAD_TEMPLATES => [ Template::Provider::Encoding->new ],
+    );
+    $tt->process('hoge.tt', { author => "アンディ" }, \my $out) or die $tt->error;
+    
+    binmode STDOUT, ':utf8'; # オマジナイ
+    print $out;
+
+    # hoge.tt
+    わたしのなまえは [% author %] です。
+
+#### テンプレートファイルを utf8 以外で記述したいのですが。。。
 
     [% USE encoding 'cp932' %]
 
-のように書くとよい。
+のように書くとよい。Template::Provider::Encoding を使うとこのようにテンプレートごとにエンコーディングを変えられます。
 
 ### 備考