還是老xml問題

zhoujianxin

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工作得很好，那是應(yīng)為您的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中間出現(xiàn)這些關(guān)鍵詞太多了，而且用戶還可能輸入這樣的關(guān)鍵詞，我無法區(qū)別，請問這樣的問題如何處理，謝謝各位大俠

lgjut

使用sax接口統(tǒng)計，比如說<address>;出現(xiàn)次數(shù)。


use XML:arser:erlSAX;

my $my_handler = MyHandler->;new;
my $parser = XML:arser:erlSAX->;new( Handler =>; $my_handler );
my $instance = 'c:/server.xml';
$parser->;parse(Source =>; { SystemId =>; $instance });
print $my_handler->;{'count'} ;

1;

package MyHandler;

sub new {
        my ($type) = @_;
        my $self = bless{} , $type;
        $self->;{'count'} = 0;
        return $self ;
}

sub start_element {
        my ($self, $element) = @_;
        $self->;{'count'}= $self->;{'count'}+1 if ($element->;{Name} eq 'address')        ;

        print "Start element: $element->;{Name}\n";
}

sub end_element {
        my ($self, $element) = @_;

        #~ print "End element: $element->;{Name}\n";
}

1;

XML:arser:erlSAX 在 libxml-perl中有。