Perl

Xml.UpdateAttrAt Example #2

Another Xml.UpdateAttrAt 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->UpdateAttrAt('xyz|test[i]', 1, 'index', $sbValue->GetAsString());
    $i = $i + 1;
}

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

# Output is:

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