В Perl с использованием Mojo :: DOM в режиме XML, как я могу совместить содержимое субтитров?

Question

У меня есть следующий XML:

<Product> 
    ... 
    <TitleDetail> 
     <TitleType>01</TitleType> 
     <TitleElement> 
     <TitleElementLevel>01</TitleElementLevel> 
     <TitleText>This is the title I'm looking for</TitleText> 
     </TitleElement> 
    </TitleDetail> 
    ... 
</Product> 

(Это ONIX, если вам интересно.)

Я хочу, чтобы извлечь название, тип 01. Я пробовал:

say $dom->at('TitleDetail[TitleType="01"] > TitleElement > TitleText') 

но это не работает. Похоже, что синтаксис tag[attr=value] действительно работает только для атрибутов.

Есть ли простой способ сделать то, что я хочу?

Answer 1

Это можно сделать с помощью Mojo :: DOM, но он длинный. Несколько раз там есть Mojo :: Collections, поэтому вам нужно получить первый элемент.

use Mojo::DOM; 

my $dom = Mojo::DOM->new->xml(1)->parse($xml); 
say $dom->find("TitleType")->grep(sub{ $_->text eq "01"})->first 
    ->following("TitleElement")->first->at("TitleText")->text; 

Answer 2

Возможно, моя проблема в том, что я использую молоток, чтобы вставить винт ...

Я люблю Mojo :: DOM и его простота, но, возможно, это не так хорошо подходит для анализа структурированных XML, и я следует использовать XML :: XPath:

my $xp = XML::XPath->new(xml=>$xml); 
say $xp->findvalue('//TitleDetail[TitleType=01]/TitleElement/TitleText'); 

Это делает то, что мне нужно.