(Perl) XML GetChildWithAttr

Demonstrates how to get the content of a particular node with a particular attribute. For example, returns "Face up in the Rain" for the Name="Album" node.

 <Response Status="OK">
   <Item Name="ZoneID">0</Item>
   <Item Name="State">2</Item>
   <Item Name="FileKey">305718</Item>
   <Item Name="Artist">Michael Tomlinson</Item>
   <Item Name="Album">Face Up in the Rain</Item>
   <Item Name="Name">The Way We're Going</Item>
   <Item Name="Status">Playing</Item>
</Response> 

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$xml = chilkat::CkXml->new();

$success = $xml->LoadXmlFile("qa_data/resp.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

# xItem is a Xml
$xItem = $xml->GetChildWithAttr("Item","Name","Album");
if ($xml->get_LastMethodSuccess() == 0) {
    print "not found." . "\r\n";
    exit;
}

print $xItem->content() . "\r\n";