Get the current rank of Learning Perl in O'Reilly's top 25 books

I've been playing with XML::LibXML to parse HTML, and boning up on my XPath to crawl through typical web pages. Here's a little snippet showing them in action. It prints the rank (1-25) of my Learning Perl in sales.

perl -MLWP::Simple -MXML::LibXML -e 'print XML::LibXML->new->parse_htm
+l_string(get "http://www.oreilly.com/catalog/top25.html")->findvalue(
+q{//text()[contains(., "Learning Perl")]/ancestor::tr[1]/td[1]/text()
+})'
[download]

Comment on Get the current rank of Learning Perl in O'Reilly's top 25 books Download Code

Replies are listed 'Best First'.
Re: Get the current rank of Learning Perl in O'Reilly's top 25 books by phydeauxarff (Priest) on Mar 29, 2003 at 14:34 UTC
Only 13th!!!?? I should probably order another copy and help drive it up ;-) Seriously ++ on the nifty, if a little self serving, example.	[reply]