Perl Requires Chilkat v9.5.0.64+

Demonstrate the XML UpdateAt Method

See more XML Examples

Demonstrates the XML UpdateAt method. 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 UpdateAt
# method auto-creates the children as needed:
$xml->UpdateAt('penguin', $autoCreate, 'flightless bird');
$xml->UpdateAt('mammal|rodent|squirrel', $autoCreate, 'bushy tail');
$xml->UpdateAt('mammal|rodent|rat', $autoCreate, 'long hairless tail');

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

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

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

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

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