<div dir="ltr">2008/8/13 Fayland Lam <span dir="ltr">&lt;<a href="mailto:fayland@gmail.com">fayland@gmail.com</a>&gt;</span><br><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="Ih2E3d">Question wrote:<br>
&gt; Hi，<br>
&gt; 现在想用perl解析一个asx（xml）文件，现在用XML::DOM发现不支持中文。<br>
<br>
</div><a href="http://wiki.perlchina.org/index.php/Perl-XML-FAQ" target="_blank">http://wiki.perlchina.org/index.php/Perl-XML-FAQ</a><br>
<a href="http://wiki.perlchina.org/index.php/%E5%BF%AB%E9%80%9F%E5%BC%80%E5%A7%8BPerl_XML%EF%BC%9A%E6%8E%A5%E5%8F%A3%E7%AF%87" target="_blank">http://wiki.perlchina.org/index.php/%E5%BF%AB%E9%80%9F%E5%BC%80%E5%A7%8BPerl_XML%EF%BC%9A%E6%8E%A5%E5%8F%A3%E7%AF%87</a><br>

<br>
一般来说，最好你去解析 utf8 的 xml 文件<br>
如果需要解析 gb2312 的文件的话，下载<br>
<a href="http://www.fayland.org/misc/backup/gb2312.enc" target="_blank">http://www.fayland.org/misc/backup/gb2312.enc</a><br>
找到 XML::Parser 的地址<br>
<br>
bash-3.00$ perldoc -l XML::Parser<br>
/usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi/XML/Parser.pm<br>
<br>
然后下载过去放到<br>
/usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi/XML/Parser/Encodings/<br>
下试试。<br>
<br>
Thanks.<br></blockquote></div><br><br>谢谢各位，文件是这样的，asx文件<br>&lt;asx version = &quot;3.0&quot;&gt;<br>&nbsp;&nbsp;&nbsp; &lt;title&gt;CCTV视频&lt;/title&gt;<br>&nbsp;&nbsp;&nbsp; &lt;abstract&gt;&lt;/abstract&gt;<br>&nbsp;&nbsp;&nbsp; &lt;copyright&gt;XMLFDFFD&lt;/copyright&gt;<br>
&nbsp;&nbsp;&nbsp; &lt;author&gt;FREE&lt;/author&gt;<br>&nbsp;&nbsp;&nbsp; &lt;entry&gt;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &lt;title&gt;CCTV视频&lt;/title&gt;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &lt;abstract&gt;&lt;/abstract&gt;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &lt;copyright&gt;XMLFDFFD&lt;/copyright&gt;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &lt;author&gt;FREE&lt;/author&gt;<br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &lt;STARTTIME VALUE=&quot;00:10:00&quot; /&gt;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &lt;DURATION VALUE=&quot;00:20:00&quot; /&gt;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &lt;ref href = &quot;mms://<a href="http://201.174.195.1/abc.wmv">201.174.195.1/abc.wmv</a>&quot;/&gt;<br>
&nbsp;&nbsp;&nbsp; &lt;/entry&gt;<br>&lt;/asx&gt;<br><br>我自己在前面加上&lt;?xml version=&quot;1.0&quot; encoding=&quot;UTF-8&quot;?&gt;<br>CCTV视频 加上cdata也是不行。<br><br>&nbsp;&nbsp;&nbsp; use XML::Parser;<br>&nbsp;&nbsp;&nbsp; my $parser = new XML::Parser();<br>&nbsp;&nbsp;&nbsp; $parser-&gt;parsefile(&quot;test\\test.asx&quot;); <br>
<br clear="all"><br>-- <br>&gt;: ~<br>
</div>