使用perl读取和编写xml

Question

我正在使用Perl读取XML文件，然后对其进行一些更改，再将其写入另一个XML文件。

我的输入XML如下所示：

            <A
              value1="123">
                <B
                  V1="1"
                  V2="7"
                  V3="1"/>
            </A>

但我得到的输出是以下形式：

            <A value1="123">
                <B V1="1" V2="7" V3="1"/>
            </A>

我正在使用代码：

my $data_xml = $xml->XMLin(get($xml_url),KeepRoot => 1,ForceArray => 1);
XMLout($data_xml,KeepRoot => 1,OutputFile => "Keep5.xml");

如何以与输出相同的格式获得输出？

Answer 1

我不认为有一种简单的方法可以保留原始格式，但您可以尝试使用工具重新格式化输出

• XML::Tidy
• XML::Twig
• 或xmllint
等外部工具