firstHEADmaster

1 files changed, 20 insertions, 0 deletions

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"; 
+ }