xml - XML::LibXML 動的ノードを使用した Perl 解析 xml

Question

私はこの xml ファイルを持っています。カテゴリ、プロパティ、およびテスト ケースを取得する必要があります。XML::LibXML と findnodes を使用して正常に完了しました。問題は、構造が異なる場合があるため、さらにテスト スイートと結果が存在する可能性があることです。ノードの場合、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>