Perl XML :: LibXML update contect

Question

Я пытаюсь обновить содержимое элемента xml. Я использую XML :: LibXML и должен использовать эту библиотеку. Вот несколько примеров данных.

<data-table> 
    <data> 
     <number>1</number> 
     <letter>one</letter> 
    </data> 
    <data> 
     <number>2</number> 
     <letter>two</letter> 
    </data> 
</data-table> 

То, что я хотел бы сделать, это изменить содержание письма «Purple», если число равно 2. Тем не менее, я считаю, у меня проблема, обозначающая Xpath для его работы. Я получаю следующую ошибку

«Не удается найти метод объекта„УстановитьДанные“с помощью пакета„XML :: Libxml :: NodeList“в»

Я боролся с этим в течение нескольких дней, так что любая помощь значительно оценили.

use XML::LibXML; 
    my $p = XML::LibXML->new; 
    my $d = $p->parse_fh(\*DATA); 
    for my $node ($d->findnodes('//data-table/data')) 
    { 
     for my $childNode ($node->findnodes('./number/text()')) 
     { 
      if($childNode->textContent() == '1') 
      { # here is where the problem is! 
      my $changeNumerNode = $node->findnodes('./letter/text()'); 
      $changeNumerNode->setData("Purple"); 
      } 
     } 
    } 
    print $d->toString; 

    __DATA__ 
    <data-table> 
     <data> 
     <number>1</number> 
     <letter>one</letter> 
     </data> 
     <data> 
     <number>2</number> 
     <letter>two</letter> 
     </data> 
    </data-table> 

Answer 1

findnodes не возвращает узел. Он возвращает список узлов или :: NodeList. Вы можете заставить его вернуть список и вернуть первый узел.

for my $node ($d->findnodes('//data-table/data')) 
{ 
    my ($number_node) = $node->findnodes('number') 
     or next; 
    $number_node->textContent() eq '1' 
     or next; 
    my ($letter_text) = $node->findnodes('letter/text()') 
     or next; 
    $letter_text->setData('Purple'); 
} 

(Как вы можете видеть, я снял чистое использование шума ./.)

Вы можете даже использовать

for my $letter_text ($d->findnodes(
    '//data-table/data[number/text()="1"]/letter/text()')) 
{ 
    $letter_text->setData('Purple'); 
}