xml - 在 Perl 中重新格式化 XML 文档？

Question

我有一个格式不正确的 XML 文档，它将在一行中有很多元素，例如：

<ModelRefs><ParentViewName>schematic</ParentViewName><ParentCellName>NCH_HS1_MV5</ParentCellName><InstanceName>DSDP</InstanceName><InstanceCellName>DIODE2MI_perim_shrink</InstanceCellName><InstanceLibName>tiRefLib</InstanceLibName></ModelRefs>

我想重新格式化它——我尝试在 XML::LibXML lib 中读取/解析它，但是无论我在（1、2 或 3 等）$xmldoc->toFile($文件，2）；

我仍然没有将它“标准化”并正确缩进......你能帮我怎么做吗？（我的机器上没有 Twig）...

Answer 1

I know you say you don't have XML::Twig available, but it really is good for this.

use strict;
use warnings;
use XML::Twig;

my $twig = XML::Twig -> new ( 'pretty_print' => 'indented' ) -> parse ( \*DATA ) -> print;


__DATA__

<ModelRefs><ParentViewName>schematic</ParentViewName><ParentCellName>NCH_HS1_MV5</ParentCellName><InstanceName>DSDP</InstanceName><InstanceCellName>DIODE2MI_perim_shrink</InstanceCellName><InstanceLibName>tiRefLib</InstanceLibName></ModelRefs>