参考文献：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->p_w_picpath(title => "Dave's News",
url => 'http://daves.news/p_w_picpaths/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
<?xml version="1.0" encoding="UTF-8"?>

<rdf:RDF
 xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
 xmlns="http://purl.org/rss/1.0/"
 xmlns:content="http://purl.org/rss/1.0/modules/content/"
 xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/"
 xmlns:dc="http://purl.org/dc/elements/1.1/"
 xmlns:syn="http://purl.org/rss/1.0/modules/syndication/"
 xmlns:admin="http://webns.net/mvcb/"
>

<channel rdf:about="http://daves.news">
<title>Dave News</title>
<link>http://daves.news</link>
<description>All the news that&#x27;s unfit to print!</description>
<dc:language>en</dc:language>
<dc:rights>Copyright 1999, USA, Larry Wall.</dc:rights>
<dc:date>Tue Nov 27 01:10:50 2012</dc:date>
<dc:publisher>ed@daves.news</dc:publisher>
<items>
 <rdf:Seq>
  <rdf:li rdf:resource="http://daves.news/cgi-bin/read.pl?id=1" />
  <rdf:li rdf:resource="http://daves.news/cgi-bin/read.pl?id=2" />
  <rdf:li rdf:resource="http://daves.news/cgi-bin/read.pl?id=3" />
 </rdf:Seq>
</items>
<p_w_picpath rdf:resource="http://daves.news/p_w_picpaths/logo.gif" />
</channel>
<p_w_picpath rdf:about="http://daves.news/p_w_picpaths/logo.gif">
<title>Dave&#x27;s News</title>
<url>http://daves.news/p_w_picpaths/logo.gif</url>
<link>http://daves.news</link>
</p_w_picpath>
<item rdf:about="http://daves.news/cgi-bin/read.pl?id=1">
<title>Data Munging Book tops best sellers list</title>
<link>http://daves.news/cgi-bin/read.pl?id=1</link>
</item>
<item rdf:about="http://daves.news/cgi-bin/read.pl?id=2">
<title>Microsoft abandons ASP for Perl</title>
<link>http://daves.news/cgi-bin/read.pl?id=2</link>
</item>
<item rdf:about="http://daves.news/cgi-bin/read.pl?id=3">
<title>Gates offers job to Torvalds</title>
<link>http://daves.news/cgi-bin/read.pl?id=3</link>
</item>
</rdf:RDF>

[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<",$item->{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
        <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]#