請(qǐng)教PERL解析XML問(wèn)題

zhoujianxin

發(fā)表于: 2003-07-17 09:35    發(fā)表主題:   

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

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>;
我試驗(yàn)了這個(gè)例子，再您列的這個(gè)xml工作得很好，那是應(yīng)為您的server是在第一級(jí)的，但我的<ftpfields>;是在這個(gè)xml的后面好多級(jí)去了，所以怎么也不對(duì)，，，請(qǐng)問(wèn)如何處理
好比：
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請(qǐng)問(wèn)這樣的問(wèn)題怎么處理，用cat我也想過(guò)，但在這個(gè)xml中間出現(xiàn)這些關(guān)鍵詞太多了，而且用戶還可能輸入這樣的關(guān)鍵詞，我無(wú)法區(qū)別，請(qǐng)問(wèn)這樣的問(wèn)題如何處理，謝謝各位大俠

deathcult

原帖由 "lgjut" 發(fā)表：
xml支持中文的問(wèn)題， 替換掉一個(gè)dll就可以了。如果誰(shuí)需要的話，給個(gè)郵箱可以發(fā)過(guò)去。
這個(gè)bbs附件傳不上去。
難得版主如此關(guān)心這個(gè)問(wèn)題。

   


好啊，解決了真不錯(cuò)！
不過(guò)我不用dll啊，3Q！ ：）

好在我現(xiàn)在工作中不用解析中文encoding的xml，
有時(shí)間再繼續(xù)研究吧；）

deathcult

原帖由 "lgjut" 發(fā)表：
如果版主愿意在perl中給出一個(gè)答案，我也很愿意學(xué)習(xí)學(xué)習(xí)。

>;我突然想起php也是用的Expat庫(kù)，而且經(jīng)過(guò)試驗(yàn)，php處理xml中的中
文，沒(méi)有什么問(wèn)題，很好。

   


我也沒(méi)有解決 ：）