xml - 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 模块也可能具有此功能。搜索这些术语:pretty、format、indent、ident、tidy、serial。