Permalink
Browse files

add example

  • Loading branch information...
1 parent 200ce86 commit 4fd4f906c7a62efac1e3513994eb702cc09ee039 @szabgab szabgab committed Mar 6, 2012
Showing with 57 additions and 0 deletions.
  1. +57 −0 eg/check_feed.pl
View
@@ -0,0 +1,57 @@
+use strict;
+use warnings;
+use v5.10;
+
+=head1 DESCRIPTION
+
+Given a URL of an Atom or RSS feed or a filename of an already downloaded
+feed, this script will try to parse it and print out what it understands
+from the feed.
+
+=cut
+
+use XML::Feed;
+
+my $src = shift;
+
+die "Usage: $0 FILE|URL\n" if not $src;
+
+my $source = $src;
+if ($src =~ m{^https?://}) {
+ $source = URI->new($src);
+} else {
+ if (not -f $source) {
+ die "'$source' does not look like a URL and it does not exist on the file-system either.\n";
+ }
+}
+
+my $feed = XML::Feed->parse( $source ) or die XML::Feed->errstr;
+say 'Title: ' . ($feed->title // '');
+say 'Tagline: ' . ($feed->tagline // '');
+say 'Format: ' . ($feed->format // '');
+say 'Author: ' . ($feed->author // '');
+say 'Link: ' . ($feed->link // '');
+say 'Base: ' . ($feed->base // '');
+say 'Language: ' . ($feed->language // '');
+say 'Copyright: ' . ($feed->copyright // '');
+say 'Modified: ' . ($feed->modified // ''); # DateTime object
+say 'Generator: ' . ($feed->generator // '');
+
+for my $entry ($feed->entries) {
+ say '';
+ say ' Link: ' . ($entry->link // '');
+ say ' Author: ' . ($entry->author // '');
+ say ' Title: ' . ($entry->title // '');
+ say ' Caregory: ' . ($entry->category // '');
+ say ' Id: ' . ($entry->id // '');
+ say ' Issued: ' . ($entry->issued // ''); # DateTime object
+ say ' Modified: ' . ($entry->modified // ''); # DateTime object
+ say ' Lat: ' . ($entry->lat // '');
+ say ' Long: ' . ($entry->long // '');
+ say ' Format: ' . ($entry->format // '');
+ say ' Tags: ' . ($entry->tags // '');
+ say ' Enclosure: ' . ($entry->enclosure // '');
+ say ' Summary: ' . ($entry->summary->body // '');
+ say ' Content: ' . ($entry->content->body // '');
+}
+

0 comments on commit 4fd4f90

Please sign in to comment.