Perl 使用 XML::LibXML 动态节点解析 xml

Question

我有这个 xml 文件，我需要获取类别、属性和测试用例， 我使用 XML::LibXML 和 findnodes 成功完成了它 问题是有时结构不同，所以可能会有更多 test-suite & results nodes 那么 findnodes 中的节点不正确。

那么处理它的最佳方法是什么？ 如果我不知道正确的基本起始节点，则不确定如何搜索 type="Fixture（这是具有我需要的信息的节点）。

<test-A>
 <test-suite type="Project">
    <results>
        <test-suite type="Setup">
          <results>
            <test-suite type="Fixture>
              <categories>
                <category name="AAA" />
                <category name="BBB" />
              </categories>
              <properties>
                <property name="CCC" />
                <property name="DDD" />
              </properties>
              <results>
                <test-case name="EEE" />
                <test-case name="DDD" />
               </results>
            </test-suite>
          </results>
        </test-suite>
    </results>
  </test-suite>
</test-A>

Answer 1

查看XPath Examples，了解有关如何创建 xpath 的一些快速提示。

为了指定你想要一个特定的属性，不要忘记@ 符号：//test-suite[@type="Fixture"]。此外，您当前的 XML 在"Fixture 之后缺少一个结束引号，我将假设这是一个复制/粘贴错误。

use strict;
use warnings;

use XML::LibXML;

my $dom = XML::LibXML->load_xml({IO => \*DATA});

for my $node ($dom->findnodes('//test-suite[@type="Fixture"]')) {
    print $node, "\n";
}


__DATA__
<test-A>
  <test-suite type="Project">
    <results>
        <test-suite type="Setup">
          <results>
            <test-suite type="Fixture">
              <categories>
                <category name="AAA" />
                <category name="BBB" />
              </categories>
              <properties>
                <property name="CCC" />
                <property name="DDD" />
              </properties>
              <results>
                <test-case name="EEE" />
                <test-case name="DDD" />
               </results>
            </test-suite>
          </results>
        </test-suite>
    </results>
  </test-suite>
</test-A>