Perl

AddAttribute - Insert New Attribute in an XML Node

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

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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $xml = Chilkat2::Xml->new;

my $success = $xml->LoadXmlFile('qa_data/xml/sample1.xml');
if (!$success) {
    print $xml->LastErrorText, "\n";
    exit;
}

# Navigate to the "books" element:
my $bFound = $xml->FindChild2('books');
if (!$bFound) {
    print "No books child found!\n";
    exit;
}

my $numChildren = $xml->NumChildren;

my $i = 0;
while ($i < $numChildren) {
    # Navigate to the Nth book
    $xml->GetChild2($i);

    # Display the book title:
    print $xml->GetAttrValue('title'), "\n";

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

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

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

    $i = $i + 1;
}

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

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

print $xml->GetXml(), "\n";