Perl

Methods for Getting Attributes

See more XML Examples

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>

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

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

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

# Get the value of the "model" attribute:
print 'model = ', $carNode->GetAttrValue('model'), "\n";

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

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

my $i = 0;
while ($i < $numAttr) {
    print $carNode->GetAttributeName($i), ': ', $carNode->GetAttributeValue($i), "\n";
    $i = $i + 1;
}