¿Cómo puedo autodefinir los nodos XML con XML :: LibXML?

Question

Estoy agregando nodos a mi documento XML como parte de algún procesamiento interno, pero no puedo obtener XML::LibXML para autodentular los nodos agregados.

consigo salida como la siguiente:

Aquí es lo que estoy recibiendo actualmente con $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> 

Lo que me gustaría es tener salida bastante impresa-:

      <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> 

---

El parámetro opcional $format paraEl métododocumentado en XML::LibXML::Document no parece ayudar.

Answer 1

jugué un poco con los ajustes y esto parece que funciona:

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); 

El resultado es el siguiente:

<?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> 

Answer 2

Si no le importa usar otra herramienta, recomiendo XML::Tidy. Hace un trabajo, y lo hace bien.