Perl格式化XML数据

Question

如何使用Perl使XML数据可读？来源是一线的。我需要格式化它。例如：

<data><project>1234</project></data>

转换为

<data>
    <project>
       1234
    </project>
</data>

由于

Answer 1

如果您的系统上已安装xmllint：

$ xmllint --format file.xml
<?xml version="1.0"?>
<data>
  <project>1234</project>
</data>

XML::Tidy是另一种选择。请参阅bin/xmltidy脚本。

xml_pp是另一种选择（XML::Twig）。

其他CPAN模块也可能具有此功能。搜索这些术语：漂亮，格式，缩进，识别，整洁，串行。