处理 UTF-8 编码文件时输出和写入乱码问题

解决处理 UTF-8 编码XML文件时，输出和写入乱码问题

以前用 Perl 处理 UTF-8 编码的 XML 文件时，总是遇到奇怪的问题：

单独输出读取的中文 XML 信息，没有问题，但是一旦和其他中文字符(比如定义的中文变量)混合输出就会出现乱码

eg:
$xml->{"chunk"}{"comment"} 包含了中文信息
my $cnstr="变量中的中文信息";

## 出现乱码
print $xml->{"chunk"}{"comment"} . $cnstr ;

## 正常
print $xml->{"chunk"}{"comment"};
print $cnstr;


仔细研究了下 UTF8 下中文处理 [转载] 和 Perl中的unicode问题及解决办法（译），现在总算找到原因了:

UTF-8 编码的 XML 文件默认就含有 utf8 标记，而一般自定义的变量不含，两者混合输出时，Perl 会认为两者都不含或都含（看谁在前） utf8 标记，于是乱码就产生了。

解决办法：
读取 XML 文件后，用 Encode::_utf8_off($str) 来去掉 utf8 标记
写入 XML 文件前，用 Encode::_uft8_on($str) 加上 utf8 标记

如：
### 读取
$comment = $xml->{"chunk"}{"comment"};
Encode::_utf8_off($comment);
...

### 写入
$comment= param('comment'); ## 获取网页提交的信息
Encode::_utf8_on($comment);
$xml->{"chunk"}{"comment"} ＝ $comment;
....