http://qs321.pair.com?node_id=1089041

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