RSSを10件に詰めるPerlスクリプト

Tweet

さいきん、2ちゃんねるの RSS とか、ながーいRSSが出まくってしねそうですので、ぱつんと切っちゃうといろいろいいと思いました。

ファイル名は適宜つけてください。CGI としても動くようにしました。

#!/usr/bin/perl -w
 
use strict;
use LWP::Simple;
use XML::RSS;
#use XML::RSS::Liberal;
use utf8;
 
#my $url = $ENV{QUERY_STRING};
my $url = 'http://dtpwiki.jp/rss/dtpkakekomidera.xml';
my $data = get($url);
 
my $rss = XML::RSS->new;
#my $rss = XML::RSS::Liberal->new;
 
$rss->parse($data);
 
splice (@{$rss->{'items'}}, 10);
 
if ($ENV{GATEWAY_INTERFACE}) {
    require CGI;
    print CGI::header('text/xml; charset=utf-8');
}
print $rss->as_string();
#$rss->save('rss.xml');

件数を変えるには、 splice (@{$rss->{'items'}}, 10); の 10 のところ適宜好きな数にしてください。Perl って便利だと思いました。

あと、XML::RSS::Liberal も使えますよー

～～～

僕は、自分のサイトで生成している HTML→RSS スクリプトで使っているので、メモ代わりとして書いておきます。

2006.04.15 12:35 投稿　大野 義貴 [RSS] | 固定リンク |