用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编码的处理。不管什么编码格式，都可以处理。一旦有个别消息不能处理，丢弃的只是个别消息，而不会影响整个文件的处理。