Синтаксический анализ XML с помощью Perl с использованием XML :: Twig - PullRequest
Новая
       20

Синтаксический анализ XML с помощью Perl с использованием XML :: Twig

2 голосов
/ 19 сентября 2011

Мне нужно получить некоторые значения из файла XML ... Файл находится на нескольких сайтах .. пример: http://1.1.1.1/apache2-default/status.xml, http://1.1.1.2/apache2-default/status.xml, и т. Д. Формат файла XML: 

<?xml version="1.0"?>
<gateway>
<version>Kannel bearerbox version `1.4.3' </version>
<status>running, uptime 0d 14h 19m 49s</status>
<wdp>
<received><total>0</total><queued>0</queued></received>
<sent><total>0</total><queued>0</queued></sent>
</wdp>
<sms>
<received><total>50569</total><queued>0</queued></received>
<sent><total>38</total><queued>0</queued></sent>
<storesize>-1</storesize>
<inbound>1.53,1.52,0.98</inbound>
<outbound>0.00,0.00,0.00</outbound>
</sms>
<smscs><count>5</count>
<smsc>
<name>SMPP:1.2.3.4:3802/3802:hng123:HNDSMPP</name>
<id>hng123</id>
<status>online 51589s</status>
<received>0</received>
<sent>0</sent>
<failed>0</failed>
<queued>0</queued>
</smsc>
<smsc>
<name>SMPP:1.2.3.4:3757/3757:vashn:HNDSMPP</name>
<id>vas1</id>
<status>online 51589s</status>
<received>40872</received>
<sent>32</sent>
<failed>0</failed>
<queued>0</queued>
</smsc>
</smscs>
</gateway>

Вот код ... который я создал ... 

 #!/usr/bin/perl  -w
use strict;
use warnings;

use XML::Twig;
use Data::Dumper;
use LWP::Simple;

my $download_dir= "/root/lab_xml_perl/v2/Script_perl/bajados";
my @ips_server = ("192.168.246.129", "192.168.246.130");
for my $servers (@ips_server) {
my $bajo = getstore("http://$servers/apache2-default/status.xml",   "$download_dir/status.xml");

my $file = "$download_dir/status.xml";
my $twig = XML::Twig->new();
$twig->parsefile($file);

my $root = $twig->root->first_child('smscs');

for my $connection ($root->children){
my $nombre_server = $connection->first_child_text('name');
my $id_server = $connection->first_child_text('id');
my $status_server = $connection->first_child_text('status');
my @status_gral = split(/\s+/, ${status_server});
my $recibidos_msg_server = $connection->first_child_text('received');
my $enviados_msg_server = $connection->first_child_text('sent');
my $encolados_msg_server = $connection->first_child_text('queued');
my $fallidos_msg_server = $connection->first_child_text('failed');
print "miId.String.id = Tabla_$id_server\n";
print "stringProp.String = $nombre_server\n";
print "idProp = $id_server\n";
print "status_idObs.StringObservation.obs = $status_gral[0]\n";
print "recvTotal.Metric = $recibidos_msg_server\n";
print "sentTotal.Metric = $enviados_msg_server\n";
print "queuedTotal.Metric = $encolados_msg_server\n";
print "faildTotal.Metric = $fallidos_msg_server\n";

}
}

Однако при запуске скрипта я получил несколько пустых полей в начале ... и предупреждение ... для каждого XML-файла с каждого сервера .... Вот вывод ... Почему это? ... мне они не нужны ... просто нужны поля, связанные с XML .. 

miId.String.id = Tabla_
stringProp.String = 
idProp = 
Use of uninitialized value $status_gral[0] in concatenation (.) or string at ./v25.pl line 32.
status_idObs.StringObservation.obs = 
recvTotal.Metric = 
sentTotal.Metric = 
queuedTotal.Metric = 
faildTotal.Metric = 
miId.String.id = Tabla_hng123
stringProp.String = SMPP:1.2.3.4:3802/3802:hng123:HNDSMPP
idProp = hng123
status_idObs.StringObservation.obs = online
recvTotal.Metric = 0
sentTotal.Metric = 66173
queuedTotal.Metric = 0
faildTotal.Metric = 0 
miId.String.id = Tabla_vas1
stringProp.String = SMPP:1.2.3.4:3757/3757:vashn:HNDSMPP
idProp = vas1
status_idObs.StringObservation.obs = online
recvTotal.Metric = 0
sentTotal.Metric = 45492
queuedTotal.Metric = 0
faildTotal.Metric = 0
Use of uninitialized value $status_gral[0] in concatenation (.) or string at ./v25.pl line 32.
status_idObs.StringObservation.obs = 
recvTotal.Metric = 
sentTotal.Metric = 
queuedTotal.Metric = 
faildTotal.Metric = 
miId.String.id = Tabla_hng123
stringProp.String = SMPP:1.2.3.4:3802/3802:hng123:HNDSMPP
idProp = hng123
status_idObs.StringObservation.obs = online
recvTotal.Metric = 0
sentTotal.Metric = 0
queuedTotal.Metric = 0
faildTotal.Metric = 0
miId.String.id = Tabla_vas1
stringProp.String = SMPP:1.2.3.4:3757/3757:vashn:HNDSMPP
idProp = vas1
status_idObs.StringObservation.obs = online 
recvTotal.Metric = 40872
sentTotal.Metric = 32
queuedTotal.Metric = 0
faildTotal.Metric = 0

Большое спасибо за любую помощь.

Майкл.

1 Ответ

2 голосов
/ 19 сентября 2011

Причина неинициализированного значения заключается в том, что первый дочерний элемент в smscs на самом деле count.

<smscs>
    <count>5</count>
    <smsc>
        <name>SMPP:1.2.3.4:3802/3802:hng123:HNDSMPP</name>
        <id>hng123</id>
        <status>online 51589s</status>
        <received>0</received>
        <sent>0</sent>
        <failed>0</failed>
        <queued>0</queued>
    </smsc>
    <smsc>
        <name>SMPP:1.2.3.4:3757/3757:vashn:HNDSMPP</name>
        <id>vas1</id>
        <status>online 51589s</status>
        <received>40872</received>
        <sent>32</sent>
        <failed>0</failed>
        <queued>0</queued>
    </smsc>
</smscs>

Таким образом, вместо того, чтобы получить всех детей smscs, вам нужно получить только smsc детей: 

foreach my $connection ($root->children('smsc')) {
    ...
}
...