请教PERL解析XML问题

zhoujianxin

发表于: 2003-07-17 09:35    发表主题:   

--------------------------------------------------------------------------------

use XML::Simple;

my $config = XMLin('c:/server.xml',forcearray =>; 1); # load the file
$rh =$config->;{server};
print scalar(keys (%$rh));



<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">;
<server name="sahara" osname="solaris" osversion="2.6">;
<address>;10.0.0.101</address>;
<address>;10.0.1.101</address>;
</server>;
<server name="gobi" osname="irix" osversion="6.5">;
<address>;10.0.0.102</address>;
</server>;
<server name="kalahari" osname="linux" osversion="2.0.34">;
<address>;10.0.0.103</address>;
<address>;10.0.1.103</address>;
</server>;
</config>;
我试验了这个例子，再您列的这个xml工作得很好，那是应为您的server是在第一级的，但我的<ftpfields>;是在这个xml的后面好多级去了，所以怎么也不对，，，请问如何处理
好比：
use XML::Simple;
use Data:umper;
my $config = XMLin('./IIOS.xml',forcearray =>;1); # load the file
$rh =$config->;{http}->;{httpelement};
#$rh =$config->;{contact};
#print Dumper $rh;
print scalar(keys (%$rh));
就显示0请问这样的问题怎么处理，用cat我也想过，但在这个xml中间出现这些关键词太多了，而且用户还可能输入这样的关键词，我无法区别，请问这样的问题如何处理，谢谢各位大侠

deathcult

原帖由 "lgjut" 发表：
xml支持中文的问题， 替换掉一个dll就可以了。如果谁需要的话，给个邮箱可以发过去。
这个bbs附件传不上去。
难得版主如此关心这个问题。

   


好啊，解决了真不错！
不过我不用dll啊，3Q！ ：）

好在我现在工作中不用解析中文encoding的xml，
有时间再继续研究吧；）

deathcult

原帖由 "lgjut" 发表：
如果版主愿意在perl中给出一个答案，我也很愿意学习学习。

>;我突然想起php也是用的Expat库，而且经过试验，php处理xml中的中
文，没有什么问题，很好。

   


我也没有解决 ：）