Perl: Получить несколько дочерних элементов элемента XPath

Question

Я использую XML :: Twig для анализа XML-файла и печати некоторой информации. Вот мой XML-файл:

<report> 
    <reportheader> 
     <month>February 2015</month> 
     <dateofgeneration>20/02/2015 - 12:29:02</dateofgeneration> 
    </reportheader> 
</report> 

и у меня есть следующий код:

XML::Twig->new(
    twig_handlers => { 
     '/report/reportheader' => sub { 
      printf qq|%s\n|, $_->text; 
     }, 
    }, 
)->parsefile($ARGV[0]); 

К сожалению, это печатает February 201520/02/2015 - 12:29:02. Есть ли способ разделить эти два, а не объединять их? Я надеялся сделать что-то вроде:

printf qq|Month: %s\nDate: %s\n|, $_->text[0], $_->text[1]; 

, чтобы разделить его на две переменные, но это не сработало.

Answer 1

Я намеревался написать ответ на вопрос your previous question, который показал, как проще избежать системы обратного вызова XML::Twig вообще для чего угодно, кроме огромных файлов данных XML. Я добавил that answer сейчас, и вам может понравиться посмотреть.

Такой же подход подходит и для этой проблемы. Это просто вопрос нахождения всех элементов /report/reportheader и печати текстового содержимого их (первых) month и dateofgeneration дочерних элементов.

Вот рабочий пример. Обратите внимание, что предполагается, что два дочерних элемента будут всегда существуют. Если это не относится к вашим фактическим данным, вам может потребоваться сначала проверить их существование, но обратите внимание, что first_child_trimmed_text (и его братья) просто вернет пустую строку без жалобы, если указанный узел не существует.

use strict; 
use warnings; 
use 5.010;  # For `say` 

use XML::Twig; 

my $twig = XML::Twig->new; 
$twig->parsefile(shift @ARGV); 

for my $report_header ($twig->findnodes('/report/reportheader')) { 
    say $report_header->first_child_trimmed_text('month'); 
    say $report_header->first_child_trimmed_text('dateofgeneration'); 
} 

выход

February 2015 
20/02/2015 - 12:29:02