From 32535584842fe1d53e04693a91e50c9108db3d47 Mon Sep 17 00:00:00 2001
From: yo mama <pepper@scannerjammer.com>
Date: Sun, 17 May 2015 14:51:09 -0700
Subject: first

---
 rss_read.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 rss_read.pl

(limited to 'rss_read.pl')

diff --git a/rss_read.pl b/rss_read.pl
new file mode 100644
index 0000000..ef13dea
--- /dev/null
+++ b/rss_read.pl
@@ -0,0 +1,20 @@
+ #!/usr/bin/perl -w
+ use strict;
+ 
+ use XML::RSS::Parser;
+ use FileHandle;
+ 
+ my $p = XML::RSS::Parser->new;
+ my $fh = FileHandle->new('/path/to/some/rss/file');
+ my $feed = $p->parse_file($fh);
+ 
+ # output some values 
+ my $feed_title = $feed->query('/channel/title');
+ print $feed_title->text_content;
+ my $count = $feed->item_count;
+ print " ($count)\n";
+ foreach my $i ( $feed->query('//item') ) { 
+     my $node = $i->query('title');
+     print '  '.$node->text_content;
+     print "\n"; 
+ }
-- 
cgit v1.2.3-70-g09d2