show has asked for the wisdom of the Perl Monks concerning the following question:
Hello there,
I am trying to create a script to retrieve RSS data and search the contents. I would like to extract all records (item) that are available at the moment but I get only recent 10 records or so with the code below. I should be able to get a lot more as when I use Google Reader, it seems that I can go back to a lot more of other (older) records. How to do this?
#!/usr/local/bin/perl use strict; use Encode; use LWP::Simple; use XML::RSS; my @RSS_URLs = ("http://rss.cnn.com/rss/cnn_us.rss"); binmode (STDOUT); binmode (STDOUT, ":encoding(utf8)"); for my $url (@RSS_URLs) { my $document = LWP::Simple::get($url) or die "cannot get content f +rom $url"; my $rss = XML::RSS->new; $rss->parse($document); for (@{$rss->{items}}) { print $_->{title} . "\n"; } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: How to retrieve all RSS data
by muba (Priest) on Oct 14, 2010 at 00:33 UTC | |
by aquarium (Curate) on Oct 14, 2010 at 04:51 UTC | |
by show (Initiate) on Oct 14, 2010 at 05:20 UTC | |
by Utilitarian (Vicar) on Oct 14, 2010 at 07:29 UTC |