Re: Expanding the headlines.rdf feed?

Any volunteers?

You? Seriously, you want something like that go join pmdev and contribute patches to get the desired behaviour.

If that's too much effort or you don't think you have the skills, there's nothing to stop you grabbing LWP::Simple, XML::RSS and XML::Simple (or your favourite alternatives) and building your own extended feed.

Tested, but not much... Exception handling left as an execise to the reader. :-)

#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;
use XML::RSS;
use XML::Simple;

my $RSS_URL = 'http://perlmonks.org/headlines.rdf';

my $original_rss = XML::RSS->new;
   $original_rss->parse( get($RSS_URL) );

my $expanded_rss = XML::RSS->new;
   $expanded_rss->channel( %{ $original_rss->channel } );

foreach my $item ( @{ $original_rss->items } ) {
   my $node = XMLin( get($item->{'link'} . '&displaytype=xml') );

   $expanded_rss->add_item(
      %{ $item },
      description => substr( $node->{'data'}->{'field'}->{'content'}, 
+0, 200 ),
   );
}

print $expanded_rss->as_string;
[download]

--k.

Comment on Re: Expanding the headlines.rdf feed? Download Code