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() - 它会给你一个 child 的列表，然后你可以迭代。像这样的:

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