•Re: Slashdot headlines

Here's a slightly simpler version that I whipped up in a few minutes, requiring XML::RSS and Template as well as LWP:

#!/usr/bin/perl -w 
use strict; 
 
my $SLASHCACHE = "/Users/merlyn/slashdot.rdf"; 
 
use LWP::Simple; 
use Template; 
 
mirror("http://slashdot.org/slashdot.rdf", $SLASHCACHE); 
 
my $t = Template->new; 
$t->process(\*DATA, { slashcache => $SLASHCACHE} ) or die $t->error; 
__END__ 
=== 
Here's the news: 
 
[% USE news = XML.RSS(slashcache); 
  FOREACH item = news.items; 
    LAST IF loop.count > 10; -%] 
  [% loop.count %]: [% item.title %] 
    at [% item.link %] 
[% END -%] 
===
[download]

-- Randal L. Schwartz, Perl hacker

Comment on •Re: Slashdot headlines Download Code

Replies are listed 'Best First'.

Re: •Re: Slashdot headlines
by ajt (Prior) on May 29, 2002 at 18:51 UTC

This is the basis of XML::RSS::Tools, a module I've been developing. Here is an example of the usage:

#!/usr/bin/perl -w
use strict;
use XML::RSS::Tools;

my $site = shift;
my $xsl  = shift;
my $rss  = XML::RSS::Tools->new;

$rss->rss_uri($site) or die $rss->as_string('error');
$rss->xsl_file($xsl) or die $rss->as_string('error');
if ($rss->transform) { print $rss->as_string };
[download]

There are however problems:

XML::RSS module has some defects
Perl before 5.7.x isn't exactly the best for working with Unicode
RSS feeds often are not valid XML - How do I clean RSS feeds to make them usable?
My module still has bugs in... :-(
UPDATE: Versions later than 0.05 have less bugs, and partially get round the defect in XML::RSS and dirty feeds

My humble 2p

[reply]
[d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks