Запутался с записью хэша в xml.
#!perl
use strict;
use XML::Simple;
use Data::Dumper;
my $obj = {"object" => {"432" => { "price" => 2000, "phone" => "222-22" }, "631" => { "price" => 7000, "phone" => "777-77" }}};
print Dumper ($obj);
print XMLout ($obj, noattr => 1, keeproot => 1);
Получаю
$VAR1 = {
\'object\' => {
\'432\' => {
\'phone\' => \'222-22\',
\'price\' => 2000
},
\'631\' => {
\'phone\' => \'777-77\',
\'price\' => 7000
}
}
};
Вместо этого естественно хочу
не могу разобраться с keyattr, помогите, плиз