perl xml dom中文乱码问题解决

在linux服务器上，很容易出现中文乱码。

一般情况下，只要保持服务器环境是utf8，文件格式是utf8，用各种语言默认的读写文件方式通常不会出现乱码。

但是，在用perl xml dom写xml的时候就出现了这个问题。

perl xml dom默认应该是用ascii来读写文件，所以，对中文要先进行解码decode，再写入。

例如：

#更新显示的xml文件
sub writeXml
{
    my $projectList = "$hometouch_root/config/projectList.xml";
    my $parser = new XML::DOM::Parser ;
    my $doc = $parser->parsefile($projectList);
    XML::DOM::setTagCompression(sub{return 1}); 
    my $newItem = $doc->createElement("item");
    #所以这里先将中文进行解码
    $newItem->setAttribute("name",decode("utf8",$projectChinese));
    $newItem->setAttribute("eng",$projectName);
    $newItem->setAttribute("version","");
    my $root = $doc->getElementsByTagName("projects")->[0];
    $root->appendChild($newItem);
    
    #write the file
    my $xml = ($doc->createXMLDecl('1.0','UTF-8')->toString).($root->toString) ;
    
    open my $myfd, ">", $projectList;
    print $myfd $xml ;
    close $myfd ;
    
    #xml tidy
    my $tidy_obj = XML::Tidy->new('filename' => $projectList);
    $tidy_obj->tidy();
    $tidy_obj->write();
}