Create XML Child Nodes with Attributes

How to create XML child nodes with attributes.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();


$xml = new chilkat::CkXml();

#  The Chilkat XML component is freeware.

$xml->put_Tag("product");

$xNode0 = $xml->NewChild("properties","");

$xChild = $xNode0->NewChild("price","");
$xChild->AddAttribute("SellPrice","11.99");

$xChild = $xNode0->NewChild("price","");
$xChild->AddAttribute("BasePrice","11.99");

print $xml->getXml() . "\r\n";

#  Prints this:
#  <product>
#     <properties>
#         <price SellPrice="11.99"></price>
#         <price BasePrice="11.99"></price>
#     </properties>
# </product>