Perl의 XML :: LibXML을 사용하여 태그간에 내용을 추출하려면 어떻게해야합니까?

Question

는이 같은 내용으로 XML 파일이 있습니다

<Node id="7"/> 
www 
<Node id="10"/> 

어떻게 그것이 가능하여 XML :: LibXML와 펄, 즉 'www'를 두 노드 사이의 컨텐츠를 취할?

감사합니다. 당신이 처리해야

Answer 1

XML 형식은 끔찍한입니다! *

즉시 (아마도 중간 의견 제외)을 따라, 당신의 형제 인 노드를 원하는 노드 감안할 및 텍스트 노드입니다.

__DATA__ 
<root> 
<Node id="7"/> 
www 
<Node id="10"/> 
bar 
</root> 

* — www

use strict; 
use warnings; 
use feature qw(say); 

use XML::LibXML qw(XML_COMMENT_NODE XML_TEXT_NODE); 

sub following_text { 
    my ($node) = @_; 
    my $text = ''; 
    while ($node = $node->nextSibling()) { 
     my $node_type = $node->nodeType(); 
     next if $node_type == XML_COMMENT_NODE; 
     last if $node_type != XML_TEXT_NODE; 
     $text .= $node->data(); 
    } 

    return $text; 
} 

my $parser = XML::LibXML->new(); 
my $doc = $parser->parse_fh(\*DATA); 
my $root = $doc->documentElement(); 
my ($node) = $root->findnodes('//Node[@id="7"]'); 
my $text = following_text($node); 

say $text; 

는 Node의 자식이어야합니다. 예를 들어 <Node id="7">www</Node>이 좋습니다.