我有这个词comЯade，但由于俄语Я，我无法在HTML中打印它...我试：
$HTML::Entities::char2entity{'Я'} = 'Я';
$HTML::Entities::char2entity{'1071'} = 'Я';
$HTML::Entities::char2entity{'ï'} = 'Я';
$str = HTML::Entities::encode_entities( $str, q{Яï1071} );
之后我尝试了：
$str =~ s/1071/Я/g;
$str =~ s/Я/Я/g;
$str =~ s/ï/Я/g;
但在这两种情况下，我都收到此错误：
syswrite 中的宽字符位于/usr/local/share/perl/5.10.1/Starman/Server.pm 第 470 行。
为什么？
一些代码：
标题.mi
<%init>
binmode STDOUT, ':encoding(UTF-8)';
($str =~ s/&/%26/g;); #this is working
$str =~ s/1071/Я/g;
$str =~ s/Я/Я/g;
$str =~ s/ï/Я/g;
</%init>
<div class="bd-headline left">
<h1 style="margin-top:0; padding-top:0;"> <% $str %> </h1>
</div>
base.mc
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
问题 1：
如果你的源代码是用 UTF-8 编码的，那么你并没有用 use utf8; 告诉 Perl 那么多。
如果您的源代码不是使用 UTF-8 编码的，则其中不可能包含"Я"。
问题2：
文件句柄只能传输字节，但不能将 Unicode 字符编码为字节。这是通过使用字符编码（如 UTF-8）来完成的。您的文档指定它使用什么编码？使用它对输出进行编码，如下所示：
binmode STDOUT, ':encoding(UTF-8)';
通过用 html 实体替换字符来转义字符几乎从来都不是正确的做法。
底层服务器（催化剂？）可能不是 unicode 感知的。 搜索CPAN白令 催化剂：:P lugin：：Unicode：：编码 这可能会有所帮助。
一些代码：
标题.mi
<%init>
use Encode;
my $hl = encode_utf8($str);
my $find = "Я";
my $replace = "Я";
$hl =~ s/$find/$replace/g;
my $hs = HTML::Strip->new();
my $no_html_hl = $hs->parse($hl);
</%init>
<div class="bd-headline left">
<h1 style="margin-top:0; padding-top:0;"> <% $no_html_hl %> </h1>
</div>
base.mc
<head> </head>
这个链接很有帮助。