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

corfuitl has asked for the wisdom of the Perl Monks concerning the following question:

Hi perlmonks

It seems that my code is not able to parse this XML because of the "xmlns="urn:foo:names:tc:doc:document:1.2""

I tried to use registerNs but no luck :(

Could you please help me on this?

Here is the XML

<?xml version="1.0" encoding="UTF-8"?> <doc version="1.2" xmlns="urn:foo:names:tc:doc:document:1.2" xmlns:okp +="ok-fr:doc-extensions" xmlns:its="http://www.w3.org/2015/1115/its" x +mlns:itsxlf="http://www.w3.org/do/its-doc/" its:version="2.0"> <body> </body> <body> <node id="NFDBB2FA9-tu1" xml:space="preserve"> <node1>TEXT 1"</node1> </node> </body> </doc>

And here is my code

use XML::LibXML; my $dom = 'XML::LibXML'->load_xml(IO => *STDIN); foreach my $tu ($dom->findnodes('/doc/body/node')) { for my $node ($tu->findnodes('node1')) { print "$node\n"; } }