##
##
##
# use module
use XML::Simple;
use Data::Dumper;
# create object
$xml = new XML::Simple;
# read XML file
$data = $xml->XMLin("Elvis1.xml");
# print output
print Dumper($data);
##
##
$VAR1 = {
'country' => 'USA',
'language' => 'ENG',
'Status' => {
'desc' => 'Web service status OK',
'id' => 'VI2000'
},
'Vehicles' => {
'Vehicle' => {
'VehicleAttributes' => {
'VehicleAttribute' => [
{
'typeid' => '14',
'value' => '2004',
'valueid' => '3043',
'type' => 'Year'
},
{
'typeid' => '1',
'value' => 'Ford',
'valueid' => '184',
'type' => 'Make'
},
{
'typeid' => '2',
'value' => 'Expedition',
'valueid' => '30',
'type' => 'Model'
},
{
'typeid' => '3',
'value' => 'Eddie Bauer',
'valueid' => '117',
'type' => 'Series'
}
]
},
'Status' => {
'desc' => 'Vehicle status OK',
'id' => 'VI1000'
},
'vin' => '1FMFU17L94LB04622'
}
},
'marketid' => '1'
};