重新提出问题，因为
- @optional问我
- 不清楚并链接了一个基于HTML::Mason的解决方案使用 Apache、mod_perl 和 DBI 使 Mason UTF-8 Unicode 干净的四个简单步骤，导致混淆的原因
- 原作4岁，同时（2012年）创作了“诗人”
评论：这个问题已经获得了“热门问题徽章”，所以可能我不是唯一一个绝望的人。:)
不幸的是，展示完整的问题堆栈会导致一个很长的问题，而且它是非常特定于Mason的。
首先，只有意见的部分:)
我使用 HTML::Mason 已经很久了，现在尝试使用 Mason2。Poet和Mason 是 CPAN 中最先进的框架。没有发现任何可比的东西，开箱即用的东西可以写得如此干净/但非常容易破解:)/网络应用程序，包括许多电池（日志记录、缓存、配置管理、基于原生 PGSI 等...）
不幸的是，作者并不关心单词的其余部分，例如默认情况下，它仅基于 ascii， 没有任何手册、常见问题解答或建议：如何将其与 unicode 一起使用
现在事实。演示。创建一个诗人应用程序：
poet new my #the "my" directory is the $poet_root
mkdir -p my/comps/xls
cd my/comps/xls
并添加到dhandler.mc以下内容（将演示这两个基本问题）
<%class>
has 'dwl';
use Excel::Writer::XLSX;
</%class>
<%init>
my $file = $m->path_info;
$file =~ s/[^\w\.]//g;
my $cell = lc join ' ', "ÅNGSTRÖM", "in the", $file;
if( $.dwl ) {
#create xlsx in the memory
my $excel;
open my $fh, '>', \$excel or die "Failed open scalar: $!";
my $workbook = Excel::Writer::XLSX->new( $excel );
my $worksheet = $workbook->add_worksheet();
$worksheet->write(0, 0, $cell);
$workbook->close();
#poet/mason output
$m->clear_buffer;
$m->res->content_type("application/vnd.ms-excel");
$m->print($excel);
$m->abort();
}
</%init>
<table border=1>
<tr><td><% $cell %></td></tr>
</table>
<a href="?dwl=yes">download <% $file %></a>
并运行应用程序
../bin/run.pl
去http://0:5000/xls/hello.xlsx你会得到：
+----------------------------+
| ÅngstrÖm in the hello.xlsx |
+----------------------------+
download hello.xlsx
单击下载 hello.xlsx，您将进入hello.xlsx下载。
上面演示了第一个问题，例如组件的源代码不是“在”下use utf8;，所以lc不理解字符。
第二个问题如下，尝试 [ http://0:5000/xls/hélló.xlsx]或 http://0:5000/xls/h%C3%A9ll%C3%B3.xlsx 你会看：
+--------------------------+
| ÅngstrÖm in the hll.xlsx |
+--------------------------+
download hll.xlsx
#note the wrong filename
当然，输入 (the path_info) 没有被解码，脚本使用 utf8 编码的八位字节而不是 perl 字符。
所以，告诉 perl -“源代码在 utf8 中”，通过use utf8;将<%class%>
+--------------------------+
| �ngstr�m in the hll.xlsx |
+--------------------------+
download hll.xlsx
添加use feature 'unicode_strings'（或use 5.014;）更糟：
+----------------------------+
| �ngstr�m in the h�ll�.xlsx |
+----------------------------+
download h�ll�.xlsx
当然，源现在包含宽字符，它需要Encode::encode_utf8在输出处。
可以尝试使用这样的过滤器：
<%filter uencode><% Encode::encode_utf8($yield->()) %></%filter>
并过滤整个输出：
% $.uencode {{
<table border=1>
<tr><td><% $cell %></td></tr>
</table>
<a href="?dwl=yes">download <% $file %></a>
% }}
但这只是部分帮助，因为需要关心<%init%>or<%perl%>块中的编码。在许多地方的 perl 代码中进行编码/解码（阅读：不在边界处）会导致代码冗长。
编码/解码应该清楚地在 Poet / Mason边界的某个地方完成- 当然，Plack 在字节级别上运行。
部分解决。
令人高兴的是，诗人巧妙地允许修改它（和梅森）的部分，因此， $poet_root/lib/My/Mason您可以将其修改Compilation.pm为：
override 'output_class_header' => sub {
return join("\n",
super(), qq(
use 5.014;
use utf8;
use Encode;
)
);
};
什么会将所需的序言插入到每个Mason 组件中。（不要忘记触摸每个组件，或者只是从 中删除已编译的对象$poet_root/data/obj）。
您也可以尝试在边界处理请求/响应，方法是编辑$poet_root/lib/My/Mason/Request.pm：
#found this code somewhere on the net
use Encode;
override 'run' => sub {
my($self, $path, $args) = @_;
#decode values - but still missing the "keys" decode
foreach my $k (keys %$args) {
$args->set($k, decode_utf8($args->get($k)));
}
my $result = super();
#encode the output - BUT THIS BREAKS the inline XLS
$result->output( encode_utf8($result->output()) );
return $result;
};
对所有内容进行编码是一个错误的策略，它会破坏例如 XLS。
因此，4 年后（我在 2011 年问了原始问题）仍然不知道:(如何在Mason2应用程序中正确使用 unicode，并且仍然不存在任何关于它的文档或帮助者。:(
主要问题是： - 在哪里（Moose 的方法修饰符应该修改哪些方法）以及如何正确解码输入以及输出在哪里（在 Poet/Mason 应用程序中。）
- 但只有文本的，例如
text/plainortext/html等等…… - a 做上述“无惊喜” - 例如，什么会简单有效。;)
有人可以帮忙提供真正的代码吗 - 我应该在上面修改什么？