Perl怎么解析XML模块 XML::Simple使用方法

XML::Simple 是 Perl 中轻量快速的 XML 解析模块，适合简单可控的 XML（如配置文件），但不支持命名空间、DTD 等复杂特性；推荐用于小项目配置读写，结构复杂或不可信数据应选 XML::LibXML 或 XML::Twig。

XML::Simple 是 Perl 中最轻量、上手最快的 XML 解析模块之一，适合处理结构简单、格式可控的 XML 数据（比如配置文件、API 返回的简单响应）。但它不推荐用于解析不可信、嵌套过深或含命名空间、CDATA、DTD 等复杂特性的 XML。

安装与基础用法

通过 CPAN 安装：

cpan XML::Simple

最简解析示例：

use XML::Simple;
my $xml = 'localhost8080';
my $data = XMLin($xml);  # 字符串转 Perl 哈希引用
print $data->{host};      # 输出：localhost

常用选项控制解析行为

XML::Simple 默认行为容易踩坑（比如单子节点变字符串、多子节点变数组），需靠参数调整：

• ForceArray => 1：所有元素都强制为数组引用（避免单个子节点被当作标量）
• KeyAttr => []：禁用自动“属性转哈希键”逻辑（默认会把 id="123" 变成哈希的 key）
• NoAttr => 1：忽略所有属性，只保留文本内容
• SuppressEmpty => ''：将空标签（）设为空字符串而非 undef

推荐新手起手写法：

my $data = XMLin($xml, ForceArray => [qw(item entry)], KeyAttr => [], NoAttr => 1);

生成 XML（反向操作）

用 XMLout() 把 Perl 哈希/数组转回 XML：

my $hash = { config => { host => '127.0.0.1', port => 3000 } };
my $xml = XMLout($hash, RootName => 'root', XMLDecl => 1);

输出带 XML 声明的格式化 XML（注意：默认不缩进，如需美化可加 NoSort => 1 配合外部工具）。

注意事项和替代建议

• 不支持 XPath、命名空间、XML Schema 验证
• 对含混合内容（文本+子元素）的 XML 解析结果不可预测
• 若 XML 来自外部或结构不确定，优先考虑 XML::LibXML（功能全、标准兼容）或 XML::Twig（内存友好、流式处理）
• Perl 5.22+ 已不默认包含 XML::Simple，需显式安装

小项目快速读写配置时很顺手，但别把它当通用 XML 引擎用。