Perl语言怎么解析XML XML::LibXML模块用法

Perl语言处理XML数据时，XML::LibXML是性能优异且功能全面的解析模块，它基于libxml2库实现，支持DOM和SAX两种解析模式，能够满足大部分XML处理场景的需求。

XML::LibXML模块安装

在使用模块之前需要先完成安装，不同系统的安装方式略有差异：

• Linux系统如果已经安装了libxml2开发库，可以直接通过CPAN安装：执行cpan XML::LibXML命令即可自动完成安装
• Ubuntu/Debian系统也可以先安装系统依赖再装模块：执行sudo apt-get install libxml2-dev，之后再执行cpan XML::LibXML
• Windows系统如果使用Strawberry Perl，自带PPM工具，执行ppm install XML::LibXML即可完成安装

解析本地XML文件

DOM解析是最常用的方式，会将整个XML文件加载为树形结构，方便后续操作节点。假设本地有一个名为test.xml的文件，内容如下：

<?xml version="1.0" encoding="UTF-8"?>
<user_list>
    <user id="1">
        <name>张三</name>
        <age>25</age>
        <email>zhangsan@ipipp.com</email>
    </user>
    <user id="2">
        <name>李四</name>
        <age>30</age>
        <email>lisi@ipipp.com</email>
    </user>
</user_list>

解析该文件并提取所有用户姓名的代码如下：

use strict;
use warnings;
use XML::LibXML;

# 创建解析器对象
my $parser = XML::LibXML->new();

# 解析本地XML文件，得到DOM文档对象
my $doc = $parser->parse_file('test.xml');

# 获取根节点
my $root = $doc->documentElement();

# 查找所有user节点下的name子节点
my @name_nodes = $root->findnodes('//user/name');

# 遍历输出节点内容
foreach my $node (@name_nodes) {
    print "用户姓名：" . $node->textContent() . "n";
}

解析XML字符串

如果XML数据是字符串形式，不需要先写入文件，可以直接调用parse_string方法解析：

use strict;
use warnings;
use XML::LibXML;

# 定义XML字符串
my $xml_str = <<'EOF';
<?xml version="1.0" encoding="UTF-8"?>
<config>
    <db_host>127.0.0.1</db_host>
    <db_port>3306</db_port>
    <db_name>test_db</db_name>
</config>
EOF

# 创建解析器并解析字符串
my $parser = XML::LibXML->new();
my $doc = $parser->parse_string($xml_str);

# 提取db_host的内容
my $host_node = $doc->findnodes('//db_host')->[0];
print "数据库地址：" . $host_node->textContent() . "n";

提取节点属性与修改内容

XML::LibXML支持直接操作节点的属性和内容，以下是获取节点属性、修改节点内容、新增节点的示例：

use strict;
use warnings;
use XML::LibXML;

my $parser = XML::LibXML->new();
my $doc = $parser->parse_file('test.xml');
my $root = $doc->documentElement();

# 获取第一个user节点的id属性
my $first_user = $root->findnodes('//user')->[0];
my $user_id = $first_user->getAttribute('id');
print "第一个用户ID：" . $user_id . "n";

# 修改第一个用户的age节点内容
my $age_node = $first_user->findnodes('./age')->[0];
$age_node->removeChildNodes(); # 清空原有内容
$age_node->appendText('26'); # 添加新内容

# 新增一个user节点
my $new_user = $doc->createElement('user');
$new_user->setAttribute('id', '3');

my $new_name = $doc->createElement('name');
$new_name->appendText('王五');
$new_user->appendChild($new_name);

my $new_age = $doc->createElement('age');
$new_age->appendText('28');
$new_user->appendChild($new_age);

$root->appendChild($new_user);

# 输出修改后的XML内容
print $doc->toString(1);

常见问题说明

• 解析时如果XML格式不规范，会抛出错误，建议解析前先检查XML格式的正确性
• findnodes方法返回的是节点数组引用，需要通过索引获取具体节点
• 如果处理的XML文件很大，DOM模式会占用较多内存，此时可以考虑使用XML::LibXML的SAX模式进行流式解析

PerlXML_LibXMLXML解析Perl模块修改时间：2026-07-19 11:27:34