$VAR1 = {
'Dev' : {
'NM' : {
'nmsAc' : 'Unknown',
'nmsA' : '0.0.0.0:0'
},
'eve' : {
'alert' : '1',
'debug' : '1'
},
'Com' : {
'cost' : '1',
'stre' : 'nco',
},
'VeCog' : {
'Operations' : {
'A' : {
'Value' : '1',
'Desc' : 'Minmess'
},
'B' : {
'Value' : '10',
'Desc' : 'Minmess'
},
'C' : {
'Value' : '100',
'Desc' : 'Minmess'
},
'D' : {
'Value' : '1000',
'Desc' : 'Minmess'
},
}
'disc' : {
'con' : '0.0.0.0:0',
'int' : 'None'
}
}
}
};
####
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple;
$data = $xml->XMLin("/home/nager.xml");
print "$data->{Dev}->{VeCog}->{Operations}->{C}->{Value}\n";
####
A:1
B:10
C:100
D:1000