oracular (3) XML::TreePuller::CookBook::Intro.3pm.gz

NAME

       XML::TreePuller::CookBook::Intro - Various ways to work with an Atom feed

ABOUT

       Atom documents are simple and small - they fit into RAM and don't have many nested elements. Processing
       them is straight forward and a good place to start learning.

   Atom Format
       An Atom feed looks like this:

         <?xml version="1.0" encoding="utf-8"?>

         <feed xmlns="http://www.w3.org/2005/Atom">

               <title>Example Feed</title>
               <subtitle>A subtitle.</subtitle>
               <link href="http://example.org/feed/" rel="self" />
               <link href="http://example.org/" />
               <id>urn:uuid:60a76c80-d399-11d9-b91C-0003939e0af6</id>
               <updated>2003-12-13T18:30:02Z</updated>
               <author>
                       <name>John Doe</name>
                       <email>johndoe@example.com</email>
               </author>

               <entry>
                       <title>Atom-Powered Robots Run Amok</title>
                       <link href="http://example.org/2003/12/13/atom03" />
                       <link rel="alternate" type="text/html" href="http://example.org/2003/12/13/atom03.html"/>
                       <link rel="edit" href="http://example.org/2003/12/13/atom03/edit"/>
                       <id>urn:uuid:1225c695-cfb8-4ebb-aaaa-80da344efa6a</id>
                       <updated>2003-12-13T18:30:02Z</updated>
                       <summary>Some text.</summary>
               </entry>

         </feed>

PROGRAMS

   Feed summaries
       Lets say you have 10 Atom feeds you are interested in subscribing to but you want to see what they have
       to offer as a summary; Perl to the rescue!  The following script generates a report of an arbitrary
       number of Atom feeds off the Internet fetching them directly from a URL or a file. The format of the
       report is like this:

         Feed: Example Feed
           * Atom-Powered Robots Run Amok

       (that sure does sound like an interesting feed)

         #!/usr/bin/env perl

         use strict;
         use warnings;

         use XML::TreePuller;

         foreach (@ARGV) {
               my $root = XML::TreePuller->parse(location => $_);
               my $title = $root->xpath('/feed/title')->text;

               print "Feed: $title\n";

               foreach ($root->xpath('/feed/entry/title')) {
                       print "  * ", $_->text, "\n";
               }

               print "\n\n\n";
         }

   Linking to entries
       Given an Atom feed what is the easiest way to build an HTML list of hyperlinks to the entries that are
       specified in it? We need to get the title which is stored in a single element and the hyperlink to the
       entry; there are multiple link elements and we only want one - the one with "rel" attribute value of
       "alternate". XPath makes quick work of this.

         #!/usr/bin/env perl

         use strict;
         use warnings;

         use XML::TreePuller;

         my $root = XML::TreePuller->parse(location => shift(@ARGV));

         print "<ul>\n";

         foreach($root->xpath('/feed/entry')) {
               my $title = $_->xpath('//title')->text;
               #there are many link elements but we only want one of them
               my $to = $_->xpath("//link[\@rel='alternate']")->attribute('href');

               print "  <li><a href=\"$to\">$title</a></li>\n";
         }

         print "</ul>\n";

COPYRIGHT

       The ATOM example XML document was taken from Wikipedia at the following URL:
       http://en.wikipedia.org/w/index.php?title=Atom_(standard)&oldid=353180236 and is available under the
       Creative Commons Attribution ShareAlike license

       All other content is copyright Tyler Riddle; see the README for licensing terms.