如何使用XML :: LibXML自動縮進XML節點？

Question

作爲部分內部處理的一部分，我將節點添加到我的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參數記錄在XML::LibXML::Document中的方法似乎沒有幫助。

Answer 1

我打得有點與設置，這似乎工作：

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> 

Answer 2

如果您不介意使用其他工具，我推薦XML::Tidy。它做一項工作，而且做得很好。