Back in late March, I posted an article on Using Cron with LWP::Simple and XML::RSS to retrieve news feeds. There I combined the module LWP::Simple with the modlue use XML::RSS. I suggested back in March it is a simple way to add content to your site.

Perl, being the non-orthogonal beast that it is, also provides yet another way to skin this cat, especially when loading content from various weblogs — specifically dealing with the wide-variety of standards out there with regards to feeds. For example, you’ll notice this site offers both an XML and an RDF feed. All things to all aggregators I suppose.

Well today, I offer a quickie example of how to use LWP::Simple in combination with XML::RSSLite to slice-n-dice a garden variety of syndication feeds. Part of my quest to aggregate my semi-definitive corner Christian blogosphere otherwise known as blogs4God.

FeedMe.pl
<br /> #!/usr/bin/perl -w</p> <p>use LWP::Simple;<br /> use XML::RSSLite;</p> <p>my $content = get(“http://www.healyourchurchwebsite.com/index.rdf”);<br /> die “Couldn’t get feed” unless defined $content;</p> <p>my %results = ();<br /> parseXML( \%results, \$content );</p> <p>print “=== Channel ===\n”,<br /> “Title: $results{‘title’}\n”,<br /> “Desc: $results{‘description’}\n”,<br /> “Link: $results{‘link’}\n”;</p> <p>for my $item (@{$results{‘items’}}) {<br /> print ” — Item —\n”,<br /> ” Title: $item->{‘title’}\n”,<br /> ” Desc: $item->{‘description’}\n”,<br /> ” Link: $item->{‘link’}\n\n”;<br /> }<br />

BTW, for those of you who run PERL on your PC, just remember “perl -MCPAN -e shell“.

Yeah, okay, that last note was for my own benefit. As always, your mileage may vary.