man XML::TreePuller::CookBook::Intro (3): 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>[email protected]</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