##
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use XML::Simple;
my $xml = new XML::Simple;
my $data = $xml->XMLin("data.xml", forcearray => [ 'student' , 'semister'], KeyAttr=>{student=>"+Name"});
print Dumper($data);
####
$var1={
'data'=>{
'student'=>[
{
'name'=>'mikky',
'number'=>'12',
'branch'=>'computers',
},
{
'name'=>'vijju',
'number'=>'15',
'branch'=>'electronics',
},
{
'name'=>'shyam',
'number'=>'16',
'branch'=>'EEE',
},
],
'university'=>{
'name'=>'svu',
'location'=>'ravru',
'branch'=>{
'electronics'=>{
'student'=>[
{
'name'=>'mikky',
'number'=>'12',
'semester'=>{
'Number'=>'1',
'subjects'=>'7',
'rank'=>'2'
}
},
{
'name'=>'vijju',
'number'=>'15',
'semester'=>[
{
'number'=>'1',
'subjects'=>'7',
'rank'=>'10'
},
{
'number'=>'2',
'subjects'=>'4',
'rank'=>'1'
}
]
},
{
'name'=>'shyam,
'number'=>'15',
'semester'=>[
{
'number'=>'1',
'subjects'=>'7',
'rank'=>'2'
},
{
'number'=>'2',
'subjects'=>'4',
'rank'=>'2'
}
]
},
]
}
}
};