怎么用perl写一个读xml的rss,然后存成文本文件

怎么用perl写一个读xml的rss,然后存成文本文件

怎么用perl写一个读xml的rss,然后存成文本文件

比如         http://rss.xinhuanet.com/rss/video.xml  这个,怎么读他的,然后更新自己的文本文件.


比如
标题 : 链接 : Url : 内容 : 时间 : 作者
很重要的一点 .对在线的内容,怎么能做到只有他更新,你这边的perl才会存起来.
我想了一个比较土的方法,比如对比这个xml的大小....



QUOTE:
原帖由 iakuf 于 2008-12-15 21:58 发表
我想了一个比较土的方法,比如对比这个xml的大小....

怎么不对比修改/更新时间?还是说无法获取这些时间?
#!/usr/bin/perl
use Data:umper;
use XML::RSS;
my $file = 'video.xml';
my $rss = new XML::RSS;
$rss ->parsefile($file);


#print Dumper($rss);
my $items_list = $rss->{'items'};
foreach my $item_hash (@$items_list){
        my $title = $$item_hash{'title'};
        my $video = $$item_hash{'enclosure'}->{'url'};
        my $pubDate = $$item_hash{'pubDate'};
        my $description = $$item_hash{'description'};
         $description =~ s/\<SCRIPT.+SCRIPT\>//g;
        print $title."\n";
        print $video."\n";
        print $pubDate."\n";
        print $description."\n";
    }


唉。。。。只有自己回复自己的帖子啦。。。。

《伟大的历程》第五集:世纪跨越
mms://media.xinhuanet.com/media2/renwu/081216092055_weimin_10.wmv
Tue, 16 Dec 2008 01:23:35 GMT
- <div style="display:none"></div>
Wide character in print at rss4.pl line 17.
赵薇否认惨遭春晚剧组淘汰
mms://media.xinhuanet.com/media2 ... gshasha_zhaowei.wmv
Tue, 16 Dec 2008 01:22:58 GMT
Wide character in print at rss4.pl line 20.
<img border=1 src=http://www.xinhuanet.com/video/1229390525629_mmlib.jpg></a><br>随着农历新年脚步的临近,央视09春晚的各种消息日渐层出不穷:日前,《辽沈晚报》报道称,那英、赵薇、谢霆锋等人,因为作品不过关惨遭春晚剧组“淘汰”,无缘独唱春晚。赵薇的经纪人陈蓉在接受记者电话专访时,对“淘汰说”迷惑之余更感愤怒:“我们根本就没时间去接触春晚!” <div style="display:none"></div>
Wide character in print at rss4.pl line 17.
偷吃急脱身倪震欲卖旧爱李嘉欣情书
mms://media.xinhuanet.com/media2 ... ngshasha_nizhen.wmv
Tue, 16 Dec 2008 01:21:52 GMT
Wide character in print at rss4.pl line 20.
<img border=1 src=http://www.xinhuanet.com/video/1229390452232_mmlib.jpg></a><br>倪震在夜店湿吻21岁城大女学生张茆事件越演越烈,他除被封“新一代贱男”,还因形象大伤事业直落谷底,计划远赴加拿大避锋头。他昨更被媒体踢爆眼见旧爱李嘉欣结婚轰动全港,竟欲以2人情书作交换,撤掉刊登偷吃照片,没担当再加没品一条罪。 <div style="display:none"></div>
Wide character in print at rss4.pl line 17.
"三通"重绘两岸新版图 一日生活圈形成
mms://media.xinhuanet.com/media2 ... 090619_yanyan_1.wmv
Tue, 16 Dec 2008 01:08:20 GMT
Wide character in print at rss4.pl line 20.
<img border=1 src=http://www.xinhuanet.com/video/xin_182110516091118751052.jpg></a><br> 两岸“大三通”今日全面启动,海运直航、空运直航、直接通邮,60年隔海相望不相通,终成记忆。周末包机扩大为平日包机,截弯取直的新航路,74个开放港口,两岸“一日生活圈”成为现实。“大三通”时代的来临将给两岸民众往来带来怎样的影响?运输成本的降低和运输效率的提高将给台湾企业带来哪些利好?两岸经贸互动又将呈现怎样的新形态?《新闻1+1》为您解析。 <div style="display:none"></div>
Wide character in print at rss4.pl line 17.
朝鲜平壤市正式开通3G手机通信
mms://media.xinhuanet.com/media2 ... _maruobing_chao.wmv
Tue, 16 Dec 2008 01:07:19 GMT
Wide character in print at rss4.pl line 20.
朝鲜第三代移动通信(3G)服务开通仪式当地时间(12月)15日在平壤人民文化宫举行。从当日起,平壤市正式开通3G手机通信。 <div style="display:none"></div>
Wide character in print at rss4.pl line 17.
吴冠中假画案宣判 拍卖公司不承担责任
mms://media.xinhuanet.com/media2 ... 6090218_liwei_8.Wmv
Tue, 16 Dec 2008 01:07:07 GMT
- <div style="display:none"></div>


出个Wide character in print at rss4.pl line 17.的错,不知为什么