还是老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工作得很好，那是应为您的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中间出现这些关键词太多了，而且用户还可能输入这样的关键词，我无法区别，请问这样的问题如何处理，谢谢各位大侠

lgjut

使用sax接口统计，比如说<address>;出现次数。


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中有。