Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: perl & XML: getting last child?

by Your Mother (Chancellor)
on Apr 17, 2013 at 20:25 UTC ( #1029218=note: print w/replies, xml ) Need Help??

in reply to perl & XML: getting last child?

*A* way.

use strictures; use XML::LibXML; my $dom = XML::LibXML ->load_xml({ IO => \*DATA }); my $last = [ $dom->findnodes("/library/book[last()]") ]->[0]; print $last->findvalue("title"), $/; __DATA__ <library> <book> <title>Perl Best Practices</title> <src>Use python. But I keed!</src> </book> <book> <title>Perl Cookbook, Second Edition</title> <src>You would make more cooking meth. But I keed!</src> </book> <book> <title>Guitar for Dummies</title> <src>Stratocaster. Oh, I'm sorry, did I stutter?</src> </book> </library>

Replies are listed 'Best First'.
Re^2: perl & XML: getting last child?
by Lotus1 (Curate) on Apr 17, 2013 at 21:09 UTC

    Another way is:

    my ($last) = $dom->findnodes("/library/book[last()]");

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1029218]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (3)
As of 2017-07-24 06:17 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (348 votes). Check out past polls.