Perl Requires Chilkat v9.5.0.64+

Demonstrate the XML NewChildInt2 Method

See more XML Examples

Demonstrates the XML NewChildInt2 method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

$xml->Tag('animal');

my $i = 0;
while ($i < 10) {
    # The first call (in the 1st loop iteration) automatically
    # creates the children in the path.
    # Each subsequent call finds the inner nodes in the path
    # already exist, but always adds a new child at the leaf,
    # even if it is a duplicate.
    $xml->NewChildInt2('bird|flightless|penguin|number', $i);
    $i = $i + 1;
}

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

# Output:

#     <?xml version="1.0" encoding="utf-8" ?>
#     <animal>
#         <bird>
#             <flightless>
#                 <penguin>
#                     <number>0</number>
#                     <number>1</number>
#                     <number>2</number>
#                     <number>3</number>
#                     <number>4</number>
#                     <number>5</number>
#                     <number>6</number>
#                     <number>7</number>
#                     <number>8</number>
#                     <number>9</number>
#                 </penguin>
#             </flightless>
#         </bird>
#     </animal>
#