Как я могу автоматически делать отступы для узлов XML с XML :: LibXML? - PullRequest
Новая
       22

Как я могу автоматически делать отступы для узлов XML с XML :: LibXML?

6 голосов
/ 27 августа 2011

Я добавляю узлы в свой XML-документ как часть некоторой внутренней обработки, но не могу получить XML::LibXML для автоматического отступа добавленных узлов.

Я получаю вывод, подобный следующему:

Вот что я сейчас получаю с $xml->toString( 1 ): 

                                    <nested_nodes>
                                        <nested_node>
                                        <configuration>A</configuration>
                                        <model>45</model>
                                        <added_node>
        <ID>
            <type>D</type>
            <serial>3</serial>
            <kVal>3</kVal>
        </ID>
    </added_node>
</nested_node>
                                    </nested_nodes>

Я хотел бы получить печатный вывод: 

                            <nested_nodes>
                                <nested_node>
                                    <configuration>A</configuration>
                                    <model>45</model>
                                    <added_node>
                                        <ID>
                                            <type>D</type>
                                            <serial>3</serial>
                                            <kVal>3</kVal>
                                        </ID>
                                    </added_node>
                                </nested_node>
                            </nested_nodes>

Необязательный параметр $format для метода toString(), описанный в XML::LibXML::Document, похоже, не помогает.

Ответы [ 2 ]

6 голосов
/ 28 августа 2011

Я немного поиграл с настройками, и это, кажется, работает: 

use XML::LibXML;

my $doc = XML::LibXML->load_xml(string => <<END_XML, { no_blanks => 1 });
                                    <nested_nodes>
                                        <nested_node>
                                        <configuration>A</configuration>
                                        <model>45</model>
                                        <added_node>
        <ID>
            <type>D</type>
            <serial>3</serial>
            <kVal>3</kVal>
        </ID>
    </added_node>
</nested_node>
                                    </nested_nodes>
END_XML

print $doc->toString(1);

Результат таков: 

<?xml version="1.0"?>
<nested_nodes>
  <nested_node>
    <configuration>A</configuration>
    <model>45</model>
    <added_node>
      <ID>
        <type>D</type>
        <serial>3</serial>
        <kVal>3</kVal>
      </ID>
    </added_node>
  </nested_node>
</nested_nodes>
1 голос
/ 27 августа 2011

Если вы не возражаете против использования другого инструмента, я рекомендую XML :: Tidy .Он выполняет одну работу и делает это хорошо.

...