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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $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:

my $xml = Chilkat2::Xml->new;
$xml->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(), "\n";

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

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

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