AddAttribute - Insert New Attribute in XML Node

Demonstrates adding an name=value attribute to an XML tag.

This example uses the XML sample file sample1.xml. The sample1.xml file contains this content:

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

Chilkat Module for Perl 5.8.* (x64)

Chilkat Module for Perl 5.10.* (x64)

use chilkat;

$xml = new chilkat::CkXml();

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

#  Navigate to the "books" node:

$bFound = $xml->FindChild2("books");
if ($bFound == 0) {
    print "No books child found!" . "\r\n";
    exit;
}

$numChildren = $xml->get_NumChildren();

for ($i = 0; $i <= $numChildren - 1; $i++) {

    #  Navigate to the Nth book (we'll assume success...)
    $bFound = $xml->GetChild2($i);

    #  Display the book title:
    print $xml->getAttrValue("title") . "\r\n";

    #  Add a new integer attribute:
    #  Should never fail..
    $success = $xml->AddAttributeInt("bookId",$i);

    #  Add a new unread="yes" attribute:
    $success = $xml->AddAttribute("unread","yes");

    #  Navigate back up to the parent:
    $success = $xml->GetParent2();

}

#  Navigate back to the document root:
$xml->GetRoot2();

#  Save the updated document:
$success = $xml->SaveXml("modified.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}