Anonymous

#!/usr/bin/perl

use Feed::Find;
use URI::Fetch;
use XML::Feed;

$url="http://blog.wilpig.org";
$url="http://feeds.feedburner.com/ImAmusedArentYou";

$blog=1;
$author="wilpig";

my @feeds = Feed::Find->find($url);
for my $uri (@feeds) {
print "$uri \n";
#    my $feeda = XML::Feed->parse(URI->new($feed))
#        or die XML::Feed->errstr;

    my $res = URI::Fetch->fetch($feeds[0])
        or $warn->("Can't fetch feed $feeds[0], skipping"), next;

    my $feed = XML::Feed->parse(\$res->content)
        or $warn->("Can't parse feed $feeds[0], skipping"), next;

     for my $entry ($feed->entries) {
        print %{$entry->issued};
        my $id = $entry->title;
        my $issued = $entry->modified;
        print "$id \n $issued \n";
     }


print "$res \n";
print "$feed \n";

#    print $feed->title, "\n";
#    for my $entry ($feed->entries) {
#        print $entry->title, "\n";
#        my $content = $entry->content;
#        print $content->body, "\n\n";
#    }
}