XML::Simple, XMLout

[dimk]

Запутался с записью хэша в 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, помогите, плиз

[arto]

добавить \'id\' и поиграть с \'content\'

[dimk]

куда добавить, в хэш?
может кто разбирался поможет написать этот XMLout?
я запарился уже эксперементировать