Perl

Find XML Element where Attribute = Value

See more XML Examples

Finds an XML element at a particular location where an attribute has a specified value. Perl

use chilkat();

$success = 0;

# We have the following XML and wish to find the value of the time attribute where msg = "alert-from".

# <cdr id="4e5d3e7f41bf6201ad81000c29703270" e164="6207">
#     <user>
#         <grp name="wfln" mode="active"/>
#     </user>
#     <event msg="setup-to" time="287069" e164="5034"/>
#     <event msg="alert-from" time="287069" e164="5034"/>
#     <event msg="rel-to" time="287079" e164="5034"/>
# </cdr>

# First, build the above XML:

$xml = chilkat::CkXml->new();
$xml->put_Tag("cdr");
$xml->AddAttribute("id","4e5d3e7f41bf6201ad81000c29703270");
$xml->AddAttribute("e164","6207");
$xml->UpdateAttrAt("user|grp",1,"name","wfln");
$xml->UpdateAttrAt("user|grp",1,"mode","active");
$xml->UpdateAttrAt("event",1,"msg","setup-to");
$xml->UpdateAttrAt("event",1,"time","287069");
$xml->UpdateAttrAt("event",1,"e164","5034");
$xml->UpdateAttrAt("event[1]",1,"msg","alert-from");
$xml->UpdateAttrAt("event[1]",1,"time","287069");
$xml->UpdateAttrAt("event[1]",1,"e164","5034");
$xml->UpdateAttrAt("event[2]",1,"msg","rel-to");
$xml->UpdateAttrAt("event[2]",1,"time","287079");
$xml->UpdateAttrAt("event[2]",1,"e164","5034");

# Show that we have the above XML
print $xml->getXml() . "\r\n";

# Find the element where msg = "alert-from"
# This updates the xml object's reference to the found element (if successful).
$notUsed = $xml->chilkatPath("/A/event,msg,alert-from|$");
if ($xml->get_LastMethodSuccess() == 0) {
    print "Not found." . "\r\n";
    exit;
}

# Get the value of the "time" attribute.
print "time = " . $xml->getAttrValue("time") . "\r\n";

# Restore the xml object's internal reference to the root of the XML document
$xml->GetRoot2();