use warnings;
use strict;
use XML::LibXML;
my $XML = <<'_END_XML_';
] >
_END_XML_
print $XML::LibXML::VERSION, " ",
XML::LibXML::LIBXML_DOTTED_VERSION, " ",
XML::LibXML::LIBXML_VERSION, " ",
XML::LibXML::LIBXML_RUNTIME_VERSION, "\n";
my $dom = XML::LibXML->load_xml(string=>$XML);
my $xpc = XML::LibXML::XPathContext->new;
$xpc->registerNs(xh => 'http://www.w3.org/1999/xhtml');
for my $div ($xpc->findnodes('//xh:div[@class="data"]', $dom)) {
print "1:", $div->{id}, "\n"
}
for my $div ($xpc->findnodes('//xh:div', $dom)) {
print "2:", $div->{id}, " ", $div->{class}, "\n"
}
__END__
2.0129 2.9.1 20901 20901
1:Hello
1:World
2:Hello data
2:World data