As a followup to Get the current rank of Learning Perl in O'Reilly's top 25 books, I present a Template-Toolkit chunk to format the top 25 list, using Template::Plugin::XML::LibXML. You can run this by placing it into a file and running tpage on the file.
[%
USE d = XML.LibXML(
  recover => 1,
  html_file => 'http://www.oreilly.com/catalog/top25.html',
);
FOR row = d.findnodes('//h2[contains(.,"Best-Selling")]/following::tab
+le/tr');
  loop.count; " => "; row.findvalue("td[2]/a"); "\n";
END;
-%]

[download]

Back to Cool Uses for Perl