#!/usr/bin/perl --
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $xml = q~
2
Sony
SE1
M94
3
Sony3
SE13
M943
~;
print $xml,$/;
print Dumper( XMLin($xml));
my $VAR1 = {
'Phones' => [
{
'Version' => 'M94',
'Count' => '2',
'Manufacturer' => 'Sony',
'Model' => 'SE1'
},
{
'Version' => 'M943',
'Count' => '3',
'Manufacturer' => 'Sony3',
'Model' => 'SE13'
}
]
};
print XMLout($VAR1, NoAttr=>1,RootName=>'terminalversioncount',XMLDecl => 1);
__END__
2
Sony
SE1
M94
3
Sony3
SE13
M943
$VAR1 = {
'Phones' => [
{
'Version' => 'M94',
'Count' => '2',
'Manufacturer' => 'Sony',
'Model' => 'SE1'
},
{
'Version' => 'M943',
'Count' => '3',
'Manufacturer' => 'Sony3',
'Model' => 'SE13'
}
]
};
2
Sony
SE1
M94
3
Sony3
SE13
M943