Add Child Tree

Add a child tree to an existing XML document.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;


#  First, build a sample XML document:
$xml = new chilkat::CkXml();
$xml->put_Tag("stocks");

$xmlM = $xml->NewChild("Microsoft","");
$xmlM->NewChild2("symbol","MSFT");
$xmlM->NewChild2("recentPrice","28.00");

$xmlG = $xml->NewChild("Google","");
$xmlG->NewChild2("symbol","GOOG");
$xmlG->NewChild2("recentPrice","440.00");

#  Display the XML so far...
print $xml->getXml() . "\r\n";

#  This is the XML displayed:
#  <stocks>
#      <Microsoft>
#          <symbol>MSFT</symbol>
#          <recentPrice>28.00</recentPrice>
#      </Microsoft>
#      <Google>
#          <symbol>GOOG</symbol>
#          <recentPrice>440.00</recentPrice>
#      </Google>
#  </stocks>

#  We want to add Yahoo to it:

$xYahoo = "<Yahoo><symbol>YHOO</symbol><recentPrice>28.00</recentPrice></Yahoo>";

$xmlYahoo = new chilkat::CkXml();
$xmlYahoo->LoadXml($xYahoo);

#  Add the xmlYahoo document just under the root node of
#  our original XML document:
$xml->AddChildTree($xmlYahoo);

#  Display the result:
print $xml->getXml() . "\r\n";