$VAR1 = {
'client_system' => {
'Customer Care' => {
'business_area' => {
'XX Business Area' => {
'component' => [
{
'component_lib' => [
{
'class_set' => {
'XX Active Strategy 2' => {
'data_type' => '1',
'linked_characteristic_name' => 'ACLI-DATA.X9999-ACLI-4-MTH-AVG-UTIL',
'version' => '2.0',
'is_protected' => 'false',
'obj_info' => {
'XX Active Strategy 2' => {
'obj_revision' => '1',
'version' => '2.0',
}
},
'base_class_set' => [
{
'interval' => {
'500-899' => {
'outcome' => {
'500-899' => {
'uniqueID' => '4',
'displayPosition' => '3'
}
},
'range' => [
'500-899'
],
'is_Others' => [
'false'
]
},
'low-199' => {
'outcome' => {
'low-199' => {
'uniqueID' => '2',
'displayPosition' => '1'
}
},
'range' => [
'low-199'
],
'is_Others' => [
'false'
]
},
'Others' => {
'outcome' => {
'Others' => {
'uniqueID' => '1',
'displayPosition' => '2147483647'
}
},
'is_Others' => [
'true'
]
},
'200-499' => {
'outcome' => {
'200-499' => {
'uniqueID' => '3',
'displayPosition' => '2'
}
},
'range' => [
'200-499'
],
'is_Others' => [
'false'
]
}
}
}
]
}
},
'type' => 'class_set'
}
]
}
],
'analytics' => [
{}
]
}
},
'signature' => 'XXXXCC',
'version' => '3.0',
'type' => 'Standalone',
'obj_info' => {
'Customer Care' => {
'obj_revision' => '-1',
'version' => '2.0',
}
}
}
},
'version' => '2.1',
'buildNumber' => 'Version 1.3'
};
####
#!/usr/bin/perl
use strict;
use XML::Simple;
use Data::Dumper;
my $file = 'files/data.xml';
my $xs1 = XML::Simple->new();
my $doc = $xs1->XMLin($file, forcearray => 1);
foreach my $key (keys (%{$doc->{client_system}})){
print $doc->{client_system}->{$key} . "\n";
print $doc->{client_system}->{$key}->{'business_area'} ? ;
}
####
'client_system' => {
'Customer Care' => {
'business_area' => {
'XX Business Area' => {
'component' => [
{
'component_lib' => [
{
'class_set' => {
'XX Active Strategy 2' => {
'base_class_set' => [
{
'interval' => {
'500-899' => {
'low-199' => {
'Others' => {
'200-499' => {