Perl Requires Chilkat v9.5.0.64+

Demonstrate the XML UpdateAttrAt Method

See more XML Examples

Demonstrates the XML UpdateAttrAt method to update attribute name/value pairs in XML. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $xml = Chilkat2::Xml->new;

$xml->Tag('animals');

my $autoCreate = 1;

# When the autoCreate argument equals 1, the UpdateAttrAt
# method auto-creates the children as needed:
$xml->UpdateAttrAt('penguin', $autoCreate, 'feature', 'flightless bird');
$xml->UpdateAttrAt('mammal|rodent|squirrel', $autoCreate, 'feature', 'bushy tail');
$xml->UpdateAttrAt('mammal|rodent|rat', $autoCreate, 'feature', 'long hairless tail');

# Show the XML
print $xml->GetXml(), "\n";

#     <?xml version="1.0" encoding="utf-8" ?>
#     <animals>
#         <penguin feature="flightless bird" />
#         <mammal>
#             <rodent>
#                 <squirrel feature="bushy tail" />
#                 <rat feature="long hairless tail" />
#             </rodent>
#         </mammal>
#     </animals>
#

# Now update each node's "feature" attribute..
$xml->UpdateAttrAt('penguin', $autoCreate, 'feature', 'black and white');
$xml->UpdateAttrAt('mammal|rodent|squirrel', $autoCreate, 'feature', 'grey, red, or black');
$xml->UpdateAttrAt('mammal|rodent|rat', $autoCreate, 'feature', 'brown, grey, white, or black');

print $xml->GetXml(), "\n";

#     <?xml version="1.0" encoding="utf-8" ?>
#     <animals>
#         <penguin feature="black and white" />
#         <mammal>
#             <rodent>
#                 <squirrel feature="grey, red, or black" />
#                 <rat feature="brown, grey, white, or black" />
#             </rodent>
#         </mammal>
#     </animals>
#