#! perl
use strict;
use warnings;
use Data::Dump;
use XML::Twig;
my $twig = XML::Twig->new
(
twig_roots =>
{
'Body/QueryXmlResponse/QueryXmlResult/queryResult/data/row' =>
\&get_data,
}
);
my %data;
$twig->parse(\*DATA);
dd \%data;
sub get_data
{
my ($twig, $row) = @_;
$data{ $_->tag } = $_->text for $row->children;
$twig->purge;
}
__DATA__
2
String
1
String
String
0
Extra Subnet
255.255.248.0
192.168.221.0
http://www.w3.org/2001/XMLSchema-instance
http://schemas.solarwinds.com/2007/08/informationservice
####
17:25 >perl 1536_SoPW.pl
{ c0 => "192.168.221.0", c1 => "255.255.248.0", c2 => "Extra Subnet" }
17:25 >