用perl处理含特殊编码的xml文件

perl对文本具有强大的处理能力。对于xml的处理，perl自带有XML::DOM 和 XML::Simple两个模块用来处理XML。
XML::DOM过于庞大，而且解析结果是一个DOM树，操作也不方便。我们更多的是处理小型简单的XML文件，所以更多的是采用XML::Simple。

但不管是DOM还是Simple，当涉及到gb2312和GBK编码的时候，虽然对perl用encodeing   =   "GB2312 " 指定编码，但由于一些火星文，
还是常常解析出错。而且用这两个模块处理的时候，一旦出错，就导致整个文件不能解析。

对于特定的场合，完全可以用perl的正则匹配语法，来处理xml文件。
比如下面的文本

<m>
 <c> 今日特价 【QQ商城千件秒杀】百事运动 防震缓冲慢跑男鞋 翼神 </c>
 <i>0</i>
 <y>0</y>
 <t>20100605065101</t>
 <k>250470602</k>
</m>
<m>
 <c>我想今天买这双鞋</c>
 <i>0</i>
 <y>0</y>
 <t>20100605065125</t>
 <k>250470602</k>
</m>

首先，通过下面函数，将每一个消息隔开。注意其中消息可能换行的处理。
sub processmessages
{
        my $processmessages = $_[0];
        if($processmessages =~ /<message>(.*)<//message>/)
        {
                my $msgcont = $1;
                while( $msgcont =~ /<m>(.*?)<//m>(.*)/ )
                {
                        my $onemesg = $1;
                            #print "#########################/n";
                        &processonemsg($onemesg);
                        #print "/n########################/n";
                }
        }
}

然后对每条消息进行处理

sub processonemsg
{
        my $mesg = $1;
        if ($mesg =~ /<c>(.*)<i>(.*)<y>(.*)<//y><t>(.*)<//t><k>(.*)<//k>/)
        {
                print ResultFile $caseid;
                print ResultFile "/t";
                print ResultFile $bossid;
                print ResultFile "/t";
                print ResultFile $casestarttime;
                print ResultFile "/t";
                print ResultFile $caseendtime;
                print ResultFile "/t";
                print ResultFile $3;
                print ResultFile "/t";
                print ResultFile $4;
                print ResultFile "/t";
                print ResultFile $5;
                print ResultFile "/t";
                print ResultFile $1;
                print ResultFile "/n";
        }
}

这样，完全规避了对其中非ascii编码的处理。不管什么编码格式，都可以处理。
一旦有个别消息不能处理，丢弃的只是个别消息，而不会影响整个文件的处理。