(Perl) Methods for Getting Attributes

Demonstrates some methods for getting attribute name/values.

The input XML, available at http://www.chilkatsoft.com/data/car.xml, is this:

<root>
    <car color="black" make="mercedes" model="C350" hp="302" engine="v6" type="sedan">Mercedes Benz C350</car>
</root>

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

use chilkat();

$xml = new chilkat::CkXml();

#  The sample input XML is available at http://www.chilkatsoft.com/data/car.xml
$success = $xml->LoadXmlFile("car.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

#  Navigate to the "car" node, which is the 1st child:
# carNode is a CkXml
$carNode = $xml->FirstChild();

#  Get the value of the "model" attribute:
print "model = " . $carNode->getAttrValue("model") . "\r\n";

#  Get the value of the "hp" attribute as an integer:
$horsepower = $carNode->GetAttrValueInt("hp");
print "horsepower = " . $horsepower . "\r\n";

#  Iterate over the attributes and show the name/value of each:
$numAttr = $carNode->get_NumAttributes();

$i = 0;
while ($i < $numAttr) {
    print $carNode->getAttributeName($i) . ": "
         . $carNode->getAttributeValue($i) . "\r\n";
    $i = $i + 1;
}