Skeeve has asked for the wisdom of the Perl Monks concerning the following question:
I found this interesing node: 1003089 and tried to adopt it to my problem.
This is the code I have:
#!/opt/local/bin/perl use strict; use warnings; use XML::LibXML; use Data::Dumper; my $parser = XML::LibXML->new; my $doc = $parser->load_xml( location =>shift, validation => 0, load_ext_dtd => 0, ); my $xpc = XML::LibXML::XPathContext->new; $xpc->registerNs( xml => "http://www.w3.org/1999/xhtml" ); print "result: "; foreach my $node ($xpc->findnodes('/*', $doc)) { print $node->nodeName,"\n"; } # result: html print "\n"; print "result: "; foreach my $node ($xpc->findnodes('/html', $doc)) { print $node->nodeName,"\n"; } # result: print "\n"; print "result: "; foreach my $node ($xpc->findnodes('/xml:html', $doc)) { print $node->nodeName,"\n"; } # result: print "\n";
You see? When I use "/*" as my query, I get my html node. But when I use "/html" or "/xml:html", I get nothing.
What's wrong with my code - or my lack of understanding of XML::LibXML?
For completeness, here is the beginning of my XML file:
<?xml version="1.0" encoding ="UTF-8" ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" xmlns:epub="epub" > <head>
Update: When I remove the namespace from the file, it seems to work :(
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: XML::LibXML and Namespace… I don't get it
by tobyink (Canon) on Jun 06, 2014 at 16:08 UTC | |
by ikegami (Patriarch) on Jun 06, 2014 at 16:49 UTC | |
by Skeeve (Parson) on Jun 06, 2014 at 17:05 UTC | |
by Skeeve (Parson) on Jun 06, 2014 at 17:04 UTC | |
Re: XML::LibXML and Namespace… I don't get it
by sundialsvc4 (Abbot) on Jun 07, 2014 at 00:17 UTC | |
Re: XML::LibXML and Namespace… I don't get it
by taint (Chaplain) on Jun 06, 2014 at 15:57 UTC | |
by Skeeve (Parson) on Jun 06, 2014 at 15:58 UTC | |
by taint (Chaplain) on Jun 06, 2014 at 16:05 UTC | |
by Skeeve (Parson) on Jun 06, 2014 at 16:09 UTC |
Back to
Seekers of Perl Wisdom