perl XML::RSS创建RSS文件并解析

buhong

　　参考文献：http://search.cpan.org/~shlomif/XML-RSS-1.49/lib/XML/RSS.pm
　　脚本：
　　[root@dou xml]# cat rss1.pl
　　#!/usr/bin/perl -w
　　use strict;
　　use XML::RSS;
　　my $rss = XML::RSS->new;
　　$rss->channel(title => 'Dave News',
　　link => 'http://daves.news',
　　description => "All the news that's unfit to print!",
　　dc => {
　　date => scalar localtime,
　　publisher => 'ed@daves.news',
　　language => 'en',
　　rights => 'Copyright 1999, USA, Larry Wall.',
　　},
　　);
　　$rss->image(title => "Dave's News",
　　url => 'http://daves.news/images/logo.gif',
　　link => 'http://daves.news');
　　$rss->add_item(title => 'Data Munging Book tops best sellers list',
　　link => 'http://daves.news/cgi-bin/read.pl?id=1');
　　$rss->add_item(title => 'Microsoft abandons ASP for Perl',
　　link => 'http://daves.news/cgi-bin/read.pl?id=2');
　　$rss->add_item(title => 'Gates offers job to Torvalds',
　　link => 'http://daves.news/cgi-bin/read.pl?id=3');
　　$rss->save('news.rss');
　　执行脚本：
　　[root@dou xml]# perl rss1.pl
　　[root@dou xml]# cat news.rss
　　
　　
　　
　　Dave News
　　http://daves.news
　　All the news that's unfit to print!
　　en
　　Copyright 1999, USA, Larry Wall.
　　Tue Nov 27 01:10:50 2012
　　ed@daves.news
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　Dave's News
　　http://daves.news/images/logo.gif
　　http://daves.news
　　
　　
　　Data Munging Book tops best sellers list
　　http://daves.news/cgi-bin/read.pl?id=1
　　
　　
　　Microsoft abandons ASP for Perl
　　http://daves.news/cgi-bin/read.pl?id=2
　　
　　
　　Gates offers job to Torvalds
　　http://daves.news/cgi-bin/read.pl?id=3
　　
　　
　　[root@dou xml]#
　　解析脚本：
　　[root@dou xml]# cat parsernew.pl
　　#!/usr/bin/perl -w
　　use strict;
　　use XML::RSS;
　　my $file = "news.rss";
　　my $rss = XML::RSS->new;
　　$rss->parsefile($file);
　　print $rss->channel('title'),"\n";
　　print $rss->channel('description'),"\n";
　　print $rss->channel('link'),"\n";
　　print 'Published: ',$rss->channel('dc')->{publisher},"\n";
　　print "Items:\n";
　　foreach my $item (@{$rss->{'items'}}) {
　　print $item->{title},"\n\t{link},">\n";
　　}
　　执行结果：
　　[root@dou xml]# perl parsernew.pl
　　Dave News
　　All the news that's unfit to print!
　　http://daves.news
　　Published: ed@daves.news
　　Items:
　　Data Munging Book tops best sellers list
　　
　　Microsoft abandons ASP for Perl
　　
　　Gates offers job to Torvalds
　　
　　[root@dou xml]#