(Perl) Adding Attributes to an XML Node

Demonstrates how to add attributes to existing XML nodes.

The input XML is this:

<abc>
    <xyz>
        <mmm>123</mmm>
    </xyz>
</abc>

The output XML is this:

<abc a="123">
    <xyz b="456">
        <mmm c="789" d="000">123</mmm>
    </xyz>
</abc>

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

use chilkat();

$xml = new chilkat::CkXml();

$success = $xml->LoadXmlFile("add_attribute.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

#  Add an attribute  a="123" to the root node:
$xml->AddAttribute("a","123");

#  Navigate to the 1st child.  After calling FirstChild2,
#  "xml" now references the node with the tag "xyz".
$xml->FirstChild2();
$xml->AddAttribute("b","456");

#  Navigate to xyz's first child, which is the node having the
#  tag "mmm".
$xml->FirstChild2();
$xml->AddAttribute("c","789");
$xml->AddAttribute("d","000");

#  Revert back to the XML document root node
$xml->GetRoot2();

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