perl - 如何消除 TT 的 "Wide character in print"警告？

Question

每次运行 CGI 脚本(输出由 Template::Toolkit 呈现)时，我都会收到此警告:
Wide character in print at /usr/local/lib/perl5/site_perl/5.8.9/mach/Template.pm line 163.
消除它的正确方法是什么？

我使用此配置创建 tt 对象:

my %config = (
       ENCODING     => 'utf8',
       INCLUDE_PATH => $ENV{TEMPLATES_DIR},
       EVAL_PERL   => 1,
}
my $tt = Template->new(\%config); 

Answer 1

将此放在调用 $tt->process() 之前让输出自动编码:

binmode STDOUT, ':utf8';

编辑 : 作为 daxim提到，可以利用 TT 的编码工具:

$tt->process($infile, $vars, '-', { binmode => ':utf8' })

这依赖于广泛使用的约定，即 '-'文件名给你 STDIN当它打开阅读时，和 STDOUT当它打开写作。

编辑 2 : 顺便说一句，后一种方式在 mod_perl (2.0.5) 下似乎对我不起作用。