如何使用Perl的XML :: LibXML来提取标签之间的内容？

Question

我有内容类似这样的XML文件：

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

怎么可能使用XML ::的libxml和Perl采取两个节点之间，即“WWW”的内容？

谢谢。

Answer 1

，你必须处理XML格式是可怕！*

给出一个节点，你希望那是它的兄弟姐妹节点，紧跟它（除非是中介评论）和是文本节点。

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; 

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

* — www应该是Node一个孩子。例如，<Node id="7">www</Node>会更好。