RE: PerlMonks Newest 10 Nodes Grabber

[btrott]

This is nice. And now that vroom has very nicely made available the RDF file, we could use XML::RSS instead of having to hand-code the extraction code (although hand- coding is probably faster).

So here's the same thing but using XML::RSS:

#!/usr/local/bin/perl -w
use strict;

use constant URL => 'http://www.perlmonks.org/headlines.rdf';

use LWP::Simple;
use XML::RSS;
my $rss = new XML::RSS;
$rss->parse( get URL );

for my $item (@{ $rss->{'items'} }) {
    print "<a href=", $item->{'link'}, ">", $item->{'title'}, "</a><br
+>\n";
}