使用Perl从DOM生成格式化XML

cpan install XML::LibXML

use XML::LibXML;

my $dom = XML::LibXML->createDocument();
my $root = $dom->createElement('root');
$dom->setDocumentElement($root);

my $child = $dom->createElement('child');
$child->setAttribute('name', 'value');
$root->appendChild($child);

my $xml = $dom->toString(1);
print $xml;

<?xml version="1.0" encoding="UTF-8"?>
<root>
 <child name="value"/>
</root>

use XML::LibXML;

# 创建DOM对象
my $dom = XML::LibXML->createDocument();
my $root = $dom->createElement('root');
$dom->setDocumentElement($root);

# 添加节点和属性
my $child = $dom->createElement('child');
$child->setAttribute('name', 'value');
$root->appendChild($child);

# 格式化XML输出
my $xml = $dom->toString(1);
print $xml;

<?xml version="1.0" encoding="UTF-8"?>
<root>
 <child name="value"/>
</root>