Как избавиться от нежелательных узлов, возвращаемых findnodes из модуля Perl XML :: LibXML? - PullRequest
Новая
       1

Как избавиться от нежелательных узлов, возвращаемых findnodes из модуля Perl XML :: LibXML?

3 голосов
/ 07 марта 2012

Ниже приведена лишь небольшая часть XML-кода, над которым я работаю. Я хочу извлечь все атрибуты, имя тега и тексты в поддереве. 

<?xml version='1.0' encoding='UTF-8'?>
<Warehouse>
<Equipment id="ABC001" model="TV" version="3_00">
<attributes>
<Location>Chicago</Location>
<Latitude>30.970</Latitude>
<Longitude>-90.723</Longitude>
</attributes>
</Equipment></Warehouse>

Я закодировал пример, подобный этому: 

#!/usr/bin/perl
use XML::LibXML;
use Data::Dumper;

$parser = XML::LibXML->new();
$Chunk = $parser->parse_file("numone.xml");

@Equipment = $Chunk->findnodes('//Equipment');
foreach $at ($Equipment[0]->getAttributes()) {
    ($na,$nv) = ($at -> getName(),$at -> getValue());
    print "$na => $nv\n";
}

@Equipment = $Chunk->findnodes('//Equipment/attributes');
@Attr = $Equipment[0]->childNodes;
print Dumper(@Attr);

foreach $at (@Attr) {
    ($na,$nv) = ($at->nodeName, $at->textContent);
    print "$na => $nv\n";
}

Я получаю такие результаты: 

id => ABC001
model => TV
version => 3_00
$VAR1 = bless( do{\(my $o = 10579528)}, 'XML::LibXML::Text' );
$VAR2 = bless( do{\(my $o = 13643928)}, 'XML::LibXML::Element' );
$VAR3 = bless( do{\(my $o = 13657192)}, 'XML::LibXML::Text' );
$VAR4 = bless( do{\(my $o = 13011432)}, 'XML::LibXML::Element' );
$VAR5 = bless( do{\(my $o = 10579752)}, 'XML::LibXML::Text' );
$VAR6 = bless( do{\(my $o = 10565696)}, 'XML::LibXML::Element' );
$VAR7 = bless( do{\(my $o = 13046400)}, 'XML::LibXML::Text' );
#text =>

Location => Chicago
#text =>

Latitude => 30.970
#text =>

Longitude => -90.723
#text =>

Атрибуты извлечения выглядят нормально, однако извлечение имени тега и текста получили дополнительное содержимое. Мои вопросы:

  1. Откуда взялись эти элементы ::Text?
  2. Как мне избавиться от этих дополнительных элементов и #text вещей?

Спасибо

Ответы [ 2 ]

3 голосов
/ 07 марта 2012

Прежде всего вы действительно должны use strict и use warnings в начале вашей программы, и объявить все переменные в точке первого использования с my. Это выявит множество простых ошибок и особенно важно в программах, с которыми вы обращаетесь за помощью.

Как вам сказали, записи XML::LibXML::Text являются пробельными текстовыми узлами. Если вы хотите, чтобы парсер XML::LibXML игнорировал, тогда установите опцию no_blanks для объекта парсера.

Кроме того, вам лучше использовать более свежий метод load_xml вместо устаревшего parse_file, как показано ниже 

my $parser = XML::LibXML->new(no_blanks => 1);
my $Chunk = $parser->load_xml(location => "numone.xml");

Вывод этой измененной версии программы выглядит как 

id => ABC001
model => TV
version => 3_00
$VAR1 = bless( do{\(my $o = 7008120)}, 'XML::LibXML::Element' );
$VAR2 = bless( do{\(my $o = 7008504)}, 'XML::LibXML::Element' );
$VAR3 = bless( do{\(my $o = 7008144)}, 'XML::LibXML::Element' );
Location => Chicago
Latitude => 30.970
Longitude => -90.723
3 голосов
/ 07 марта 2012

Дополнительные узлы - это текстовые узлы, содержащие только пробелы, , например, , переводы строк между элементами. Пропустите их, если хотите: 

@Equipment = $Chunk->findnodes('//Equipment/attributes');
@Attr = $Equipment[0]->childNodes;
foreach $at (@Attr) {
    ($na,$nv) = ($at->nodeName, $at->textContent);

    next if $na eq "#text";  # skip text nodes between elements

    print "$na => $nv\n";
}

Выход: 

id => ABC001
model => TV
version => 3_00
Location => Chicago
Latitude => 30.970
Longitude => -90.723
...