Perl中XML::LibXML模块的基本使用方法是什么？

cpan XML::LibXML

cpanm XML::LibXML

use strict; use warnings; use XML::LibXML;  # 假设我们有一个XML字符串 my $xml_string = <<'XML'; <library>     <book id="bk101">         <author>Gambardella, Matthew</author>         <title>XML Developer's Guide</title>         <genre>Computer</genre>         <price>44.95</price>         <publish_date>2000-10-01</publish_date>         <description>An in-depth look at creating applications with XML.</description>     </book>     <book id="bk102">         <author>Ralls, Kim</author>         <title>Midnight Rain</title>         <genre>Fantasy</genre>         <price>5.95</price>         <publish_date>2000-12-16</publish_date>         <description>A young woman's journey through the world of magic.</description>     </book> </library> XML  # 创建一个解析器对象 my $parser = XML::LibXML->new();  # 从字符串解析XML my $doc; eval {     $doc = $parser->parse_string($xml_string); }; if ($@) {     warn "解析XML字符串失败: $@";     exit; }  # 获取根元素 my $root = $doc->documentElement(); print "根元素名称: " . $root->nodeName . "n";  # 查找所有 <book> 元素 my @books = $doc->findnodes('/library/book'); # 使用XPath  print "找到 " . scalar(@books) . " 本书。n";  foreach my $book (@books) {     # 访问属性     my $id = $book->getAttribute('id');     print "  书ID: $idn";      # 访问子元素文本内容     my $title = $book->findvalue('title'); # findvalue直接返回文本     my $author = $book->findvalue('author');     print "  标题: $titlen";     print "  作者: $authorn";      # 也可以这样访问子元素再取文本     # my ($price_node) = $book->findnodes('price');     # if ($price_node) {     #     print "  价格: " . $price_node->textContent . "n";     # }     print "--------------------n"; }

# 创建一个新的XML文档 my $new_doc = XML::LibXML->newDocument('1.0', 'UTF-8'); my $root_element = $new_doc->createElement('data'); $new_doc->setDocumentElement($root_element);  # 添加子元素 my $item1 = $new_doc->createElement('item'); $item1->setAttribute('id', 'A001'); $item1->appendText('这是一个示例数据。'); $root_element->appendChild($item1);  my $item2 = $new_doc->createElement('item'); $item2->setAttribute('id', 'A002'); my $value_node = $new_doc->createElement('value'); $value_node->appendText('更多内容'); $item2->appendChild($value_node); $root_element->appendChild($item2);  # 修改现有文档（以上面解析的 $doc 为例） # 找到第一本书的标题并修改它 my ($first_book_title_node) = $doc->findnodes('/library/book[1]/title'); if ($first_book_title_node) {     $first_book_title_node->setTextContent('The New XML Guide'); }  # 添加一个新的属性到第二本书 my ($second_book) = $doc->findnodes('/library/book[2]'); if ($second_book) {     $second_book->setAttribute('language', 'English'); }  # 删除第一本书的描述 my ($first_book_description_node) = $doc->findnodes('/library/book[1]/description'); if ($first_book_description_node) {     $first_book_description_node->parentNode->removeChild($first_book_description_node); }  # 打印修改后的XML print "n--- 修改后的原始文档 ---n"; print $doc->toString(1); # 参数1表示格式化输出  print "n--- 新创建的文档 ---n"; print $new_doc->toString(1);

XML::LibXML::Document

use XML::LibXML; my $parser = XML::LibXML->new();  my $xml_data = '<data><item>Hello</item></data>'; my $doc_from_string; eval {     $doc_from_string = $parser->parse_string($xml_data); }; if ($@) {     warn "字符串解析错误: $@n"; } else {     print "字符串解析成功，根元素是: " . $doc_from_string->documentElement->nodeName . "n"; }

use XML::LibXML; use Path::Tiny; # 一个方便处理文件路径的模块  # 假设我们有一个临时XML文件 my $temp_file = Path::Tiny->tempfile(SUFFIX => '.xml'); $temp_file->spew_utf8('<config><setting name="debug" value="true"/></config>');  my $parser = XML::LibXML->new(); my $doc_from_file; eval {     $doc_from_file = $parser->parse_file($temp_file->stringify); }; if ($@) {     warn "文件解析错误: $@n"; } else {     print "文件解析成功，根元素是: " . $doc_from_file->documentElement->nodeName . "n";     # 别忘了清理临时文件     $temp_file->remove; }

eval { ... }

$@

findnodes()

findvalue()

newDocument()

use XML::LibXML;  my $new_doc = XML::LibXML->newDocument('1.0', 'UTF-8');

my $root_element = $new_doc->createElement('root'); $new_doc->setDocumentElement($root_element); # 将新创建的元素设置为文档的根

createElement()

setAttribute()

# 添加一个 <user> 元素 my $user_element = $new_doc->createElement('user'); $user_element->setAttribute('id', 'u123'); $user_element->setAttribute('status', 'active'); $root_element->appendChild($user_element); # 将 <user> 添加到根元素下  # 在 <user> 下添加 <name> 和 <email> my $name_element = $new_doc->createElement('name'); $name_element->appendText('Alice'); $user_element->appendChild($name_element);  my $email_element = $new_doc->createElement('email'); $email_element->appendText('alice@example.com'); $user_element->appendChild($email_element);  # 添加另一个 <user> 元素，这次用不同的方式构建 my $another_user = $new_doc->createElement('user'); $another_user->setAttribute('id', 'u456'); $another_user->appendText('Bob'); # 直接给元素添加文本，这会成为它的文本子节点 $root_element->appendChild($another_user);

# 创建一个包含特殊字符的文本节点 my $special_text_node = $new_doc->createTextNode('This text has <special> characters & entities.'); my $message_element = $new_doc->createElement('message'); $message_element->appendChild($special_text_node); $root_element->appendChild($message_element);  # 创建一个CDATA节点 my $cdata_node = $new_doc->createCDATASection('This is <CDATA> content. It will be preserved as-is.'); my $code_element = $new_doc->createElement('code'); $code_element->appendChild($cdata_node); $root_element->appendChild($code_element);