How do i get value of an element if the next elememnt has specific value in XML::LibXML using Xpath?

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

<book:bookResource>
<book:book>
<book:meta coverImage="/cover.gif" doi="10.1088" publicationDate="2016
+-12-01" issn="1111-222X" collectionId="0001">
<book:title title="Lattice dynamics">
<book:subTitle>Book 17</book:subTitle></book:title>
<book:isbn isbn="979-0-4444-1000-17" type="epub"/>
<book:isbn isbn="979-0-4444-2000-2" type="ppub"/>
</book:meta>
</book:bookResource>
</book:book>
[download]

How can I get isbn="979-0-4444-1000-17" for type="epub"? I tried the following code, but of no use. Help me please.

use XML::LibXML;

my $parser = XML::LibXML->new();
my $doc    = $parser->parse_file("book_service.xml");
my $xpc = XML::LibXML::XPathContext->new($doc->documentElement());

foreach my $book_node ($xpc->findnodes('/book:bookResource/book:book/b
+ook:meta'))
{
    foreach $book_element ('./*/@isbn[@type="epub"]')
    {
        print $book_node->findvalue($book_element);
        }
}
[download]

Comment on How do i get value of an element if the next elememnt has specific value in XML::LibXML using Xpath? Select or Download Code

Replies are listed 'Best First'.
Re: How do i get value of an element if the next elememnt has specific value in XML::LibXML using Xpath? (OT) by LanX (Saint) on Jul 07, 2013 at 19:20 UTC
Sorry, isn't this rather an XPath than a Perl-question? edit From my memory and w/o ever working with this module you should try experimenting with something like `./book:isbn[@type="epub"]/@isbn` Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l]
Re: How do i get value of an element if the next elememnt has specific value in XML::LibXML using Xpath? by Anonymous Monk on Jul 08, 2013 at 01:23 UTC
Attributes cannot have attributes, they're attributes not elements xpather.pl can help you Read more... (7 kB) `//*[ name() = "book:isbn" and @isbn and @type = "ppub" ]` [download]	[reply] [d/l] [select]

Back to Seekers of Perl Wisdom

edit