#!/usr/bin/perl --
use strict;
use warnings;
use XML::LibXML;
use Data::Dump qw/ dd pp /;

Main( @ARGV );
exit( 0 );

sub Main {
    my $dom = XML::LibXML->new(
        qw/ recover 2 /
    )->load_xml(
        location => shift || q{ravi06-05.xml},
    );
    
    print $_->nodePath,"\n" for $dom->findnodes(q{//@xlink:href});
    print $_->nodePath,"\n" for $dom->findnodes(q{//book:locator/@xlin
+k:href});
}
__END__
/book:bookResource/book:book/book:chapter/book:locator[1]/@xlink:href
/book:bookResource/book:book/book:chapter/book:locator[2]/@xlink:href
/book:bookResource/book:book/book:chapter/book:locator[3]/@xlink:href
/book:bookResource/book:book/book:chapter/book:meta/book:author/book:a
+ffiliation/@xlink:href
/book:bookResource/book:book/book:chapter/book:meta/book:affiliation/b
+ook:locator/@xlink:href
/book:bookResource/book:book/book:chapter/book:locator[1]/@xlink:href
/book:bookResource/book:book/book:chapter/book:locator[2]/@xlink:href
/book:bookResource/book:book/book:chapter/book:locator[3]/@xlink:href
/book:bookResource/book:book/book:chapter/book:meta/book:affiliation/b
+ook:locator/@xlink:href
[download]

Hi, we don't have Data::Dump. We can't use predicates("book:locator1") either.

Hi, we don't have Data::Dump

And then what happened?

We can't use predicates("book:locator1") either.

And I just showed that you can. I have

$ perl -MData::Dump -MXML::LibXML -e " dd[ XML::LibXML->VERSION, XML::
+LibXML::LIBXML_DOTTED_VERSION ]"
[2.0014, "2.9.0"]
[download]