Perl XML :: LibXML 업데이트 컨택

Question

XML 요소의 내용을 업데이트하려고합니다. XML :: LibXML을 사용하고 있으며이 라이브러리를 사용해야합니다. 다음은 몇 가지 샘플 데이터입니다. 내가하고 싶은 무엇

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

는 편지의 내용을 변경되는 수가 2. 그러나 나는 그것이 작동하기는 XPath를 지정하는 데 문제가있어 생각이다 "퍼플"합니다. 나는

이

내가 일 동안 고민 했어요 "에서"XML :: LibXML :: NodeList를 "패키지를 통해"사항 setData "개체 방법을 찾을 수 없습니다 것은"그래서 어떤 도움이 크게되는 다음과 같은 오류를 얻을 고맙습니다.

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'); 
}