(Perl) Update an XML Attribute

Demonstrates how to update XML attributes.

The output XML is this:

<abc b="pear" c="orange" a="130">Test</abc>

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

use chilkat();

$xml = new chilkat::CkXml();

$xml->LoadXml("<abc a=\"123\" b=\"apple\">Test</abc>");

#  The UpdateAttribute and AddOrUpdateAttribute methods
#  are identical.  Both will replace the attribute's value if it
#  already exists, or insert a new attribute if it does not yet exist.

#  Change the value of attribute "b" to "pear".
$xml->UpdateAttribute("b","pear");

#  Because no attribute named "c" exists, UpdateAttribute
#  will create it:
$xml->UpdateAttribute("c","orange");

#  If an attribute's value is an integer, the AddToAttribute
#  method may be called to update it by adding an integer value.
#  For example, update the value of "a" to "130" by adding 7.
$xml->AddToAttribute("a",7);

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