Обработка вложенных элементов с использованием XML :: Twig - PullRequest
Новая
       18

Обработка вложенных элементов с использованием XML :: Twig

3 голосов
/ 31 августа 2011 
<cov>
    <item>
        <valo></valo>
        <valt></valt>
        <valtr></valtr>
    </item>             
    <item>
        <valo></valo>
        <valt></valt>
        <valtr></valtr>
    </item>             
    <item>
        <valo></valo>
        <valt></valt>
        <valtr></valtr>
    </item>             
</cov>

Я пытаюсь использовать веточку для обхода значений valo и valtr для каждого элемента - как я могу это сделать?

Пока у меня это есть, но внутри подпрограммы, как я могу указать правильный узел "valo"? 

my $t = XML::Twig->new(twig_handlers => {'cov/item' => \&item });
my $url;
$t->parse($fileContent);

sub item {
    my ($t, $item) = @_;
    print $item->text . "\n";
}

1 Ответ

3 голосов
/ 31 августа 2011

Вот обработчик, который показывает способ проверки дочерних элементов cov/item узлов: 

sub item {
    my ($t, $item) = @_;

    my @kids = $item->children;
    for my $kid ( @kids ) {
        warn "valo is:  " . $kid->text if $kid->name eq q{valo};
        warn "valtr is: " . $kid->text if $kid->name eq q{valtr};
    }
}

Другой подход заключается в использовании findnodes( ) и XPath-подобного синтаксиса Twig для определения местоположения элементов: 

my $t = XML::Twig->new->parse( $fileContent );
for my $node ( $t->findnodes( '//valo' ) ) {
    warn "valo is: " . $node->text;
}

... Или для полного синтаксиса XPath используйте XML :: Twig :: XPath вместо: 

my $t = XML::Twig::XPath->new->parse( $fileContent );
for my $node ( $t->findnodes( '//valo | //valtr' ) ) {
    warn "valo is:   " . $node->text if $node->name eq q{valo};
    warn "valtr is:  " . $node->text if $node->name eq q{valtr};
}

Подробнее см. XML::Twig документы из методов, используемых здесь.

...