Perl

Xml.UpdateAttrAt Example #2

Another Xml.UpdateAttrAt example... Perl

use chilkat();

$xml = chilkat::CkXml->new();
$xml->put_Tag("abc");

$sbValue = chilkat::CkStringBuilder->new();

$i = 0;
while ($i < 10) {
    $xml->put_I($i);
    $sbValue->Clear();
    $sbValue->AppendInt($i);
    $xml->UpdateAttrAt("xyz|test[i]",1,"index",$sbValue->getAsString());
    $i = $i + 1;
}

print $xml->getXml() . "\r\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>