Perl

Xml.ChildContent Example #2

Another Xml.UpdateChildContent example... Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $xml = Chilkat2::Xml->new;
$xml->Tag('abc');

my $sbValue = Chilkat2::StringBuilder->new;

my $i = 0;
while ($i < 10) {
    $xml->I($i);
    $sbValue->Clear();
    $sbValue->AppendInt($i);
    $xml->UpdateChildContent('xyz|test[i]', $sbValue->GetAsString());
    $i = $i + 1;
}

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

# Output is:

#     <?xml version="1.0" encoding="utf-8" ?>
#     <abc>
#         <xyz>
#             <test>0</test>
#             <test>1</test>
#             <test>2</test>
#             <test>3</test>
#             <test>4</test>
#             <test>5</test>
#             <test>6</test>
#             <test>7</test>
#             <test>8</test>
#             <test>9</test>
#         </xyz>
#     </abc>