perl 用 XML::LibXML 解析 Freeplane.mm文件,XML文件

Perl 官网 www.cpan.org

https://strawberryperl.com/ 下载网速太慢了

建议从 https://download.csdn.net/download/qq_36286161/87892419

下载 strawberry-perl-5.32.1.1-64bit.zip 约105MB

解压后安装.msi,装完后有520MB+,建议安装在D:盘

在云计算中,解析XML元素和属性是一种常见的操作,因为XML是一种常见的数据交换格式,可以用来表示各种不同的数据结构和信息。Perl 是一种过去流行的脚本语言,可以用来处理各种文本数据,包括XML数据。

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

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

编写 test_LibXML.pl 如下

perl 复制代码
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use XML::LibXML;

if ($#ARGV != 0){
    die "You must specify a file.xml to parse";
}
my $file = shift @ARGV;

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

# 解析XML文档
my $doc = $parser->parse_file($file)
         or die "cannot read file.xml\n";

my $f2 = $file .'.txt';
# 写入文件
open(my $fw, '>:encoding(UTF-8)', $f2) or die "cannot open file '$f2' $!";

# 获取所有的元素节点
my @nodes = $doc->findnodes('//node');

# 遍历所有的元素节点
foreach my $node (@nodes) {
  # 获取元素名称
  if( $node->nodeName() eq 'node'){

    # 获取所有的属性
    my @attrs = $node->attributes();

    # 遍历所有的属性
    foreach my $attr (@attrs) {
      # 获取属性名称和属性值
      if( $attr->nodeName() eq 'TEXT'){
        my $txt = $attr->value();
        # 输出属性值 #Encode::_utf8_on($txt);
        print $fw "$txt\n"; 
      }    
    }
  }
}
close($fw);

运行 cmd

chcp 65001

perl test_LibXML.pl your_test.mm

在这个示例代码中,我们首先使用XML::LibXML模块创建了一个XML解析器对象,然后使用parse_file函数解析了一个名为 your_test.mm 的XML文件。接着,我们使用findnodes函数获取了所有的元素节点,并遍历了每个元素节点,获取了元素名称和所有的属性。最后,我们遍历了每个属性,获取了属性名称和属性值,并输出了这些信息。

在Windows10系统中Perl安装Tk模块

perl 复制代码
#!/usr/local/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new or die 'cannot create Widget';

my $types = [['Freemind', '.mm'], ['XML file', '.xml']];

my $filename = $mw->getOpenFile(-filetypes=>$types);
print $filename;

MainLoop;

运行 perl tk_openfile.pl

参阅:Perl XML::LibXML by Example --- Perl XML::LibXML by Example documentation

相关推荐
李少兄10 天前
解决OSS存储桶未创建导致的XML错误
xml·开发语言·python
阳光开朗_大男孩儿11 天前
XML读取和设置例子
xml·java·数据库
2501_9111212312 天前
OpenStack 入门与实践
服务器·php·perl
悟能不能悟12 天前
在 MyBatis 的xml中,什么时候大于号和小于号可以不用转义
xml·java·mybatis
慌糖12 天前
XML重复查询一条Sql语句??怎么解决
xml·数据库·sql
胖大和尚13 天前
在 XML 节点名称前添加前缀
xml
casual_clover14 天前
Android 中 解析 XML 字符串的几种方式
android·xml
SuperherRo14 天前
Web攻防-XSS跨站&文件类型&功能逻辑&SVG&PDF&SWF&HTML&XML&PMessage&LocalStorage
xml·pdf·html·svg·localstorage·swf·pmessage
'tubug'15 天前
XXE(XML外部实体注入)详解
xml·web安全
不太厉害的程序员19 天前
NC65配置xml找不到Bean
xml·java·后端·eclipse