Создание XML документа из Perl объекта

Правила создания XML документа из Perl объекта взяты из библиотеки XML-Simple.

1. Хеш преобразуется в последовательность элементов, где ключ - это имя элемента, а значение - содержимое элемента.

    {a => "b", c => "d"}
    <a>b</a><c>d</c>
   

2. Если в паре ключ-значение тип значения хеш, то это считается атрибутами элемента.

    {a => {b => "c"}}
    <a b="c"></a>
   

3. Вложенный элемент.

    {a => {b => {c => "d"}}}
    <a><b c="d' /></a>
   

4. Массив.

    {a => ["b", "c"]}
    <a>b</a><a>c</a>
   

Используется функция TurboXSLT::CreateXMLFromObject(root). Аргумент root задает имя корневого элемента.

Пример:

$engine = new TurboXSLT;
my $object = {a => "b", c => {d => "e"}, f => ["1", "2"]};
my $document = $engine->CreateXMLFromObject($object, "root");