Perl

Xml.ChildContent Example #2

Another Xml.UpdateChildContent 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->UpdateChildContent("xyz|test[i]",$sbValue->getAsString());
    $i = $i + 1;
}

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