perl - 如何处理同名的子节点？

Question

我有 1000 个实体的 xml，如下面的模板：

<data>
  <row> ded</row>
   <row> def </row>
   <row> fff </row>
   <row> fff </row>

</data>

我需要用 XML::Twig 解析它。

我使用以下代码：

my $twig = XML::Twig->new(
twig_handlers => {
  data => sub {

        my $x1 = $_->first_child_trimmed_text('row');
        print $x1;
        #I need also here to run over the other rows and extract them

  }
} );

如何遍历行并提取它们（它们具有相同的名称）？

Answer 1

您可以使用 XML::Twig 方法children_trimmed_text()- 它会为您提供子项列表，然后您可以对其进行迭代。像这样的东西：

data => sub {
    my @row_children = $_->children_trimmed_text( 'row' );
    for my $row ( @row_children ) {
       print "$row\n";
    }
}

Answer 2

twig_handlers => {
#   '/data/row'
#   '//row'
#   'row'
   '//data/row'
          => sub { print $_->get_trimmed_text },
}