Parsing SOAP/XML

[blazarov]

Hello,

I have a simple(maybe?) task to create a script that generates SOAP requests and parses the responses. I managed to create the correct SOAP request and I get the right response. My problem is that i cannot manage to parse the response in a usable way. I tried SOAP::Lite module, but no success..

Here is a sample response that i need to parse:
I need the <Value> and the <CStatus> for each Counter.

<?xml version="1.0" encoding="UTF-8" ?>
- <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
- <soapenv:Body>
- <ns1:PerfmonCollectSessionDataResponse soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="http://schemas.cisco.com/ast/soap/">
- <ArrayOfCounterInfo soapenc:arrayType="ns1:CounterInfoType[12]" xsi:type="soapenc:Array" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(Asterisk-NOC)\CallsActive</Name>
<Value xsi:type="xsd:long">0</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(Asterisk-NOC)\CallsCompleted</Name>
<Value xsi:type="xsd:long">0</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(BTC-DataPhone)\CallsActive</Name>
<Value xsi:type="xsd:long">0</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(BTC-DataPhone)\CallsCompleted</Name>
<Value xsi:type="xsd:long">1</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(BTC-VoIP)\CallsActive</Name>
<Value xsi:type="xsd:long">0</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(BTC-VoIP)\CallsCompleted</Name>
<Value xsi:type="xsd:long">2289</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(ITDNet)\CallsActive</Name>
<Value xsi:type="xsd:long">0</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(ITDNet)\CallsCompleted</Name>
<Value xsi:type="xsd:long">0</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(SpeedyNet_Asterisk)\CallsActive</Name>
<Value xsi:type="xsd:long">1</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(SpeedyNet_Asterisk)\CallsCompleted</Name>
<Value xsi:type="xsd:long">7115</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(Vivatel-VoIP)\CallsActive</Name>
<Value xsi:type="xsd:long">0</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
- <item xsi:type="ns1:CounterInfoType">
<Name xsi:type="ns1:CounterNameType">\\172.30.32.32\Cisco SIP(Vivatel-VoIP)\CallsCompleted</Name>
<Value xsi:type="xsd:long">0</Value>
<CStatus xsi:type="xsd:unsignedInt">0</CStatus>
</item>
</ArrayOfCounterInfo>
</ns1:PerfmonCollectSessionDataResponse>
</soapenv:Body>
</soapenv:Envelope>

Thanks in advance for your help and Best Regards!
Borislav.

[Sixtease]

Saving the code you pasted as 'wd.xml', I ran this script:
#!/usr/bin/perl
use strict;
use warnings;

use XML::DOM;

my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ("wd.xml");

my $nodes = $doc->getElementsByTagName('item');
my $n = $nodes->getLength;

for my $i (0 .. $n-1) {
my $node = $nodes->item($i);
my $cstatus = $node->getElementsByTagName('CStatus')->item(0)->getFirstChild->getNodeValue;
my $value = $node->getElementsByTagName( 'Value' )->item(0)->getFirstChild->getNodeValue;
print "Item $i: CStatus: $cstatus, Value: $value\n";
}

and it said syntax error. I had to remove the dashes from the line beginnings and then it ran successfully, yielding the expected results:
Item 0: CStatus: 0, Value: 0
Item 1: CStatus: 0, Value: 0
Item 2: CStatus: 0, Value: 0
Item 3: CStatus: 0, Value: 1
Item 4: CStatus: 0, Value: 0
Item 5: CStatus: 0, Value: 2289
Item 6: CStatus: 0, Value: 0
Item 7: CStatus: 0, Value: 0
Item 8: CStatus: 0, Value: 1
Item 9: CStatus: 0, Value: 7115
Item 10: CStatus: 0, Value: 0
Item 11: CStatus: 0, Value: 0

Summed up, the document doesn't seem to be a valid XML, if only for the dash before the first opening tag. Getting rid of those, XML::DOM did the job. Haven't tried SOAP::*.