XML::RSS::Headline::Fark - XML::RSS::Headline Example Subclass
Strip out the extra Fark redirect URL and strip out the various [blahblah] blocks in the headline
use XML::RSS::Feed; use XML::RSS::Headline::Fark; use LWP::Simple qw(get); my $feed = XML::RSS::Feed->new( url => "http://www.pluck.com/rss/fark.rss", hlobj => "XML::RSS::Headline::Fark", name => "fark", ); while (1) { $feed->parse(get($feed->url)); print $_->headline . "\n" for $feed->late_breaking_news; sleep($feed->delay); }
Here is the before output in #news on irc.perl.org
<rssbot> - [Sad] Elizabeth Edwards diagnosed with breast cancer <rssbot> http://go.fark.com/cgi/fark/go.pl?IDLink=1200026&location=http://www.msnbc.msn.com/id/6408022
and here is the updated output
<rssbot> - Elizabeth Edwards diagnosed with breast cancer <rssbot> http://www.msnbc.msn.com/id/6408022
Init the object for a parsed RSS item returned by XML::RSS.
Copyright 2004 Jeff Bisbee <jbisbee@cpan.org>
http://search.cpan.org/~jbisbee/
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
XML::RSS::Feed, XML::RSS::Headline, XML::RSS::Headline::PerlJobs, POE::Component::RSSAggregator
To install XML::RSS::Feed, copy and paste the appropriate command in to your terminal.
cpanm
cpanm XML::RSS::Feed
CPAN shell
perl -MCPAN -e shell install XML::RSS::Feed
For more information on module installation, please visit the detailed CPAN module installation guide.