[Perl]利用XML::DOM生成XML文档

Perl的XML::DOM功能很强大，利用它可以轻易地分析XML文档，也可以建立XML文档。

常用的类包括：

• XML::DOM::Node：所有类的基类，表示一个XML节点。
• XML::DOM::Parser：XML解析器，将XML字符串解析成XML::DOM::Document对象。
• XML::DOM::Document：指向XML文档的根节点。
• XML::DOM::Element：指向一个元素，通常由XML::DOM::Document->createElement元素生成。

其他的类可以查看CPAN 上关于 XML::DOM 的说明。

建立XML文档的通常做法是：首先通过 XML::DOM::Parser生成一个Document对象， 再通过这个Document对象的 createElement、createTextNode 等方法生成各个节点， 最后通过 XML::DOM::Node->appendChild 方法将节点添加到Document对象中， 最后再通过 toString 方法将 Document 转换为字符串输出。

下面是建立XML文档的一个例子：

#!/usr/bin/perl



use XML::DOM;

use XML::Twig;



# 创建XML的最外层元素

my $xml = "<MyXML/>";



# 通过XML::DOM::Parser解析外层元素，创建基础XML文档

# XML::DOM::Parser::parse函数的返回值为 XML::DOM::Document 类

my $parser = new XML::DOM::Parser;

my $dom = $parser->parse($xml);



# 生成Book节点

# createElement的返回值为 XML::DOM::Element 类

# XML::DOM::Element 的父类是 XML::DOM::Node 类

my $book = $dom->createElement("Book");

# 设置节点属性

$book->setAttribute("title", "My First Book");

$book->setAttribute("author", "charlee");



# 生成Chapter节点

my $chapter = $dom->createElement("Chapter");

$chapter->setAttribute("id", "1");

# 生成一个文本节点

my $title = $dom->createTextNode("My First Chapter");

$chapter->appendChild($title);



# 添加Chapter到Book

$book->appendChild($chapter);



# 添加Book到XML文档

$dom->getDocumentElement->appendChild($book);



# 利用XML::Twig整理格式

my $twig = new XML::Twig;

$twig->set_indent(" "x4);

$twig->parse($dom->toString);

$twig->set_pretty_print("indented");



# 输出

print $twig->sprint;

最后一段使用XML::Twig的程序只是为了整理XML输出结果的格式， 如果不需要整理格式，不调用XML::Twig，直接使用$dom->toString也可以。