Here we go..
#!/usr/bin/perl
# DEE Tool XML parser
###############################################
# To understand this, read the XML::Simple #
# Manpage and the XML file you are processing #
###############################################
use strict;
use XML::Simple;
use Data::Dumper;
my $xmlfile = shift @ARGV;
my $ref = XMLin("$xmlfile");
my $foo = $ref->{RMEPlatform};
my @array = @$foo;
foreach (@array) {
print "=-=-=-=-=-=-=-=-=-=-=-\n";
print "Offical Host Name: $_->{Cisco_NetworkElement}{OfficialHostName}\n";
print "Physical Position: $_->{Cisco_NetworkElement}{PhysicalPosition}\n";
print "Instance Name: $_->{Cisco_NetworkElement}{InstanceName}\n";
print "Description: $_->{Cisco_NetworkElement}{Description}\n";
print "Model: $_->{Cisco_Chassis}{Model}\n";
print "Serial Number: $_->{Cisco_Chassis}{SerialNumber}\n";
print "Chassis Type: $_->{Cisco_Chassis}{ChassisSystemType}\n";
print "Cards: \n";
my $bar = $_->{Cisco_Chassis}{Cisco_Card};
if (ref $bar) {
my @cards = @$bar;
foreach my $card (@cards) {
next unless ($card->{CardType});
print "\tCard Type: $card->{CardType}\n";
print "\tFirmware Version: $card->{SoftwareIdentity}[0]{VersionString}\n" if (ref($card) eq "ARRAY");
print "\tSoftware Version: $card->{SoftwareIdentity}[1]{VersionString}\n" if (ref($card) eq "ARRAY");
print "\tSerial Number: $card->{SerialNumber}\n";
print "\tHardware Version: $card->{HardwareVersion}\n";
print "\tModel: $card->{Model}\n";
print "\t=-=-=-=-=-=-=-=\n";
}
}
}
Hope this helps.
mfreeman@netcogov.com
