perl 用 XML::Parser 解析 XML文件,访问哈希

本篇我们会看到 Perl 成为知名编程语言的关键特色--哈希 hash(2000年以前叫:关联数组)。

在Perl 中,可以使用各种模块和函数来解析 XML元素和属性。其中,最古老的模块是 XML::Parser,它提供了一组完整的XML解析和处理函数,可以解析XML文档中的元素和属性。

例如,下面是一个使用 XML::Parser 模块解析 XML元素和属性 的示例代码:

编写 xml_parser_tree.pl 如下

perl 复制代码
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use utf8;
use XML::Parser;
use Data::Dumper;

if ($#ARGV != 0){
    die "You must specify a file.xml to parse";
}
my $file = shift @ARGV;
# Tree 风格比较难用,它的数据结构不符合标准的JSON.
my $p = XML::Parser->new(Style => 'Tree',
        Handlers => {Start => \&start, End => \&end_, Char => \&text});
my $tree = $p->parsefile($file) 
            or die "cannot read file.xml\n";
#print Dumper($tree);

my $f2 = $file .'.txt';
# 写入文件
open(my $fw, '>:encoding(UTF-8)', $f2) or die "cannot open file '$f2' $!";
my @array;
# 访问 hash
sub start { 
    my ($self, $tag, %attribs) = @_;
    if ($tag eq 'node'){
        push @array, $attribs{'TEXT'};
    }
}
sub end_ {
    my ($self, $tag) = @_;
}
sub text {
    my ($self, $text) = @_;
}
my $ln =0; # 行数
foreach my $txt (@array){
    print $fw $txt ."\n";
    $ln++;
}
close($fw);
print $ln;

运行 perl xml_parser_tree.pl your_test.xml

编写 xml_parser_subs.pl 如下

perl 复制代码
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use utf8;
use XML::Parser;
#use Data::Dumper;

if ($#ARGV != 0){
    die "You must specify a file.xml to parse";
}
my $file = shift @ARGV;
# Subs 风格比较容易使用,它需要对应于标签名定义子程序
my $p = XML::Parser->new(Style => 'Subs',
        Handlers => {Char => \&text});
my $doc = $p->parsefile($file) 
            or die "cannot read file.xml\n";
say '$doc is a ', $doc;

my $f2 = $file .'.txt';
# 写入文件
open(my $fw, '>:encoding(UTF-8)', $f2) or die "cannot open file '$f2' $!";
my @array;
# 访问 hash
sub node { 
    my ($self, $tag, %attribs) = @_;
    push @array, $attribs{'TEXT'};
}
sub node_ {
    my ($self, $tag) = @_;
}
sub text {
    my ($self, $text) = @_;
}
my $ln =0; # 行数
foreach my $txt (@array){
    print $fw $txt ."\n";
    $ln++;
}
close($fw);
print $ln;

运行 perl xml_parser_subs.pl your_test.mm

参阅:XML::Parser - A perl module for parsing XML documents - metacpan.org

相关推荐
l1t3 天前
利用美团龙猫用libxml2编写XML转CSV文件C程序
xml·c语言·libxml2·解析器
是罐装可乐5 天前
深入理解 Vue3 Router:三种路由模式的工作原理与实战应用
架构·vue·路由·history·hash·ssr·router
Luna-player6 天前
某个工程 pom.xml
xml
l1t6 天前
对expat库XML_Parse函数调用优化的测试
xml·c语言·解析器·expat
l1t6 天前
利用美团龙猫添加xlsx的sheet.xml读取sharedStrings.xml中共享字符串输出到csv功能
xml·c语言·数据结构·人工智能·算法·解析器
叶 落6 天前
[Maven 基础课程]pom.xml
xml·pom.xml 常见配置项·maven 的 pom.xml
北城以北88886 天前
Java高级编程--XML
xml·java·开发语言·intellij-idea
l1t6 天前
DeepSeek辅助编写的利用quick_xml把xml转为csv的rust程序
xml·开发语言·人工智能·rust·解析器·quick-xml
l1t6 天前
how to build tbox xml into the demo
xml·linux·c语言·parser·tbox
搞全栈小苏7 天前
基于Qt QML和C++的MQTT测试客户端(CMakeLists实现)
xml·c++·qt