perl 用 XML::LibXML DOM 解析 Freeplane.mm文件，生成测试用例.csv文件

Freeplane 是一款基于 Java 的开源软件，继承 Freemind 的思维导图工具软件，它扩展了知识管理功能，在 Freemind 上增加了一些额外的功能，比如数学公式、节点属性面板等。

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

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

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

编写  test_LibXML_dom.pl  如下

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use utf8;
use XML::LibXML;

# 解析 Freeplane.mm文件，生成测试用例.csv文件
#  xt: 应用系统名的英文或拼音缩写
# zd?: 字段?的拼音缩写
# zd1: 模块名
# zd2: 功能名
# zd3: 正向 或 反向
# zd4: 测试要点
# zd5: 执行步骤
# zd6: 预期结果
# csylms:测试用例描述

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

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

# 解析XML文档
my $dom = $p->load_xml(location => $file)
         or die "cannot read file.xml\n";

my $f2 = $file .'.csv';
# 写入文件
open(my $fw, '&g