通过libxml :: xpathcontext访问子子值

时间:2015-06-12 12:20:28

标签: perl xpath xml-parsing libxml2 xml-libxml

我想访问子子的值并修改它。这是我的xml

 <config xmlns:xc="urn:ietf:params:xml:ns:netconf:base:1.0">
<outer1 xmlns="http://blablabla" >
  <inner>
    <name>
        <prenom>Hello</prenom>
    </name>
    <profession>warrior</profession>
  </inner>
  <inner>
    <name>
        <prenom>Hello</prenom>
    </name>
    <org>wwf</org>
    <profession>warrior</profession>
  </inner>
</outer1>

这是我的代码

my $dom = XML::LibXML->load_xml( location => $xml);
my $context = XML::LibXML::XPathContext->new( $dom->documentElement() );
$context->registerNs( 'u' => '"urn:ietf:params:xml:ns:netconf:base:1.0' );
$context->registerNs( 'u' => 'http://blablabla');

for my $node ($context->findnodes('//u:inner') ) {
    for my $node2 ($node->findnodes('//u:name') ) {
         #if (($node->findnodes('u:name', $node2) ->size) != 1) {next;}
         my ($mh)   = $node->findnodes('u:prenom', $node2);
         my $size  = $node->findnodes('u:prenom', $node2) ->size;
         print "size $size";
         if ($size != 1) {next;}
         $mh ->removeChildNodes();
         $mh->appendText('World12456');
         print "mh = $mh";
    }
}

我想访问prenom并将其修改为&#39; World12456&#39;。使用currrent代码;我收到此错误XPath错误:未定义的命名空间前缀  错误:xmlXPathCompiledEval:评估失败。然后我尝试了不同的方式

for my $node ($context->findnodes('//u:inner') ) {
         my ($mh)   = $context->findnodes('u:name/prenom', $node);
         my $size  = $context->findnodes('u:name/prenom', $node) ->size;
         print "size $size";
         if ($size != 1) {next;}
         $mh ->removeChildNodes();
         $mh->appendText('World12456');
         print "mh = $mh";
}

然后我得到两者的大小都是0。它没有找到标签prenom。随着

for my $node ($context->findnodes('//u:inner/name')

它什么也没显示。

我很抱歉,如果这是重复的,但我还没有找到任何链接来访问使用xpathcontext的子子。

1 个答案:

答案 0 :(得分:0)

我明白了。我只需要为每个元素添加你的

for my $node ($context->findnodes('//u:inner/u:name')