#!/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/@xlink: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:affiliation/@xlink:href
/book:bookResource/book:book/book:chapter/book:meta/book:affiliation/book: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/book:locator/@xlink:href