KLDP RSS 지나간 글

#!/usr/bin/env perl
use strict;
use warnings;
use Encode qw/encode/;
use DateTime;
use AnyEvent;
use AnyEvent::Feed;
 
my $cv = AnyEvent->condvar;
 
my $feed_reader = AnyEvent::Feed->new (
        url      => 'http://kldp.org/taxonomy/term/12/0/feed',
        interval => 5,
        on_fetch => sub {
            my ($feed_reader, $new_entries, $feed, $error) = @_;
 
            if (defined $error) {
                warn "ERROR: $error\n";
                $cv->send;
                return;
            }
            # 각 entry는 <a href="http://search.cpan.org/perldoc?XML::Feed::Entry" rel="nofollow">http://search.cpan.org/perldoc?XML::Feed::Entry</a> 참고
            foreach (@{$new_entries}) {
                my $delta =  DateTime->now - $_->[1]->issued;
                my $delta_days = $delta->delta_days;
                printf "New article found:\n   %s\n   => %s\n   => %s\n",
                       encode ('utf-8', $_->[1]->title),
                       $_->[1]->link,
                       $delta_days;
            }
        }
);
 
$cv->recv;