XML::LibXML::XPathContext - Question
- by sid_com
This script works with and without XPathContext. Why should I use it with XPathContext?
#!/usr/bin/env perl
use warnings; use strict;
use XML::LibXML;
use 5.012;
my $parser = XML::LibXML->new;
my $doc = $parser->parse_string(<<EOT);
<?xml version="1.0"?>
<xml>
Text im Dokument
<element id="myID" name="myname" style="old" />
<object objid="001" objname="Object1" />
<element id="002" name="myname" />
</xml>
EOT
#/
# without XPathContext
my $nodes = $doc->findnodes( '/xml/element[@id=002]' );
# with XPathContext
#my $root = $doc->documentElement;
#my $xc = XML::LibXML::XPathContext->new( $root );
#my $nodes = $xc->findnodes( '/xml/element[@id=002]' );
for my $node ( $nodes->get_nodelist ) {
say "Node: ", $node->nodeName;
print "Attribute: ";
print $_->getName, '=', $_->getValue, ' ' for $node->attributes;
say "";
}
