File: example-1.pl

package info (click to toggle)
libxml-rss-feed-perl 2.212-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 312 kB
  • sloc: perl: 2,581; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 394 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl
use strict;
use warnings;
use XML::RSS::Feed;
use LWP::Simple qw(get);

my $feed = XML::RSS::Feed->new(
    url    => "http://use.perl.org/index.rss",
    name   => "useperl",
    delay  => 10,
    debug  => 1,
    tmpdir => "/tmp",
);

while (1) {
    $feed->parse( get( $feed->url ) );
    print $_->headline . "\n" for $feed->late_breaking_news;
    sleep( $feed->delay );
}