#!/usr/bin/perl -w

use XML::LibXML;
use strict;
use warnings;

my $filename = 'topo-small-sample.xml';     ## NNM XML Topology Source File

my $parser = XML::LibXML->new();
my $doc = $parser->parse_file($filename);

foreach my $node($doc->findnodes('/topo/node')){
        my ($nodename) = $node->findnodes('./name');
        my ($caname) = $node->findnodes('./extendedAttributes/attribute');
        print $nodename->to_literal, "\n", "\t", $caname->to_literal, "\t", "\n"
}

########## Source file example
<?xml version="1.0" encoding="UTF-8"?>
<topo>
    <node>
        <shortname>10B_Gate_W</shortname>
        <name>172.30.1.7</name>
        <deviceDescription>Two Network Module Slots, Four WIC slots, Two Gigabit Ethernet ports 3800 family router</deviceDescription>
        <deviceCategory>Router</deviceCategory>
        <deviceFamily>Cisco 3800 Series Integrated Services Routers</deviceFamily>
        <deviceVendor>Cisco</deviceVendor>
        <capabilities>
            <capability>com.hp.nnm.capability.card.cisco.entfructrl</capability>
            <capability>com.hp.ov.nnm.capability.metric.cisco.env.fan</capability>
            <capability>com.hp.nnm.capability.metric.cpm2</capability>
        </capabilities>
        <extendedAttributes>
            <attribute>
                <name>NA_ID</name>
                <value>26401</value>
            </attribute>
            <attribute>
                <name>Device Category</name>
                <value>Router</value>
            </attribute>
        </extendedAttributes>
    </node>
    <node>
        <shortname>jfllt000fi01</shortname>
        <name>jfllt000fi01.atoesa.com</name>
        <deviceDescription>Microsoft Windows NT Server</deviceDescription>
        <deviceCategory>Server</deviceCategory>
        <deviceFamily>Microsoft Windows NT Servers</deviceFamily>
        <deviceVendor>Microsoft</deviceVendor>
        <capabilities>
            <capability>com.hp.nnm.capability.metric.hr</capability>
            <capability>com.hp.nnm.capability.metric.ietf.DISK_HOST-RESOURCES-MIB</capability>
        </capabilities>
        <extendedAttributes>
            <attribute>
                <name>Device Category</name>
                <value>Server</value>
            </attribute>
        </extendedAttributes>
    </node>
</topo>