www.digitalimage.jpのRSSにタイトルと説明をつけてあげるスクリプト

Tweet

www.digitalimage.jp の MD関連情報の RSS を勝手に作っていたのですけれども、自前で生成するようになったということで、確認してみました。

▲いままでのdtpwiki.jp 独自生成（rssgen.pl 使用） RSS

rssgen.pl は、item 要素 の子要素の description 要素は記述しない主義です。だから僕もそれにしたがって空欄のママです。

▲digitailmage の XOOPS 生成 RSS

item 要素 の子要素の description 要素はちゃんと記述されています。しかし、channel 要素の子要素である title 要素や、description要素がからです。ダメじゃん。

というわけで、足りない要素を補ってあげるスクリプトを作りました。utf-8 でどうぞ（って、誰も使わないと思うけれども）。

動作としては、http://www.digitalimage.jp/backend.php からとってきた RSS に、title と description を付けて、ローカルの digitalimage.xml に書き出しします。

#!/usr/bin/perl
 
 
# digitalimage.pl - digitalimage.jp の RSS に title と descriptionを付加
# 参考にした↓
# http://allabout.co.jp/career/cgiperl/closeup/CU20050131A/
#
# 2005.03.1 v0.1    初版（絶版）
 
use strict;
use LWP::Simple;
use XML::RSS;
use utf8;
 
my $url = 'http://www.digitalimage.jp/backend.php';
my $data_from_web = get($url);
 
# XML::RSSを使う準備。
my $rss = new XML::RSS;
 
 
# WEBから取得したデータを解析。
$rss->parse($data_from_web);
#$rss->parsefile('./test.xml');
 
my %channel = %{$rss->{'channel'}};
 
my $title = "www.digitalimage.jp - デジタル画像に関してお任せください！";
my $description = "MD関連ニュース";
 
$channel{'title'} = $title;
$channel{'description'} = $description;
 
 
%{$rss->{'channel'}} = %channel;
 
$rss->save('digitalimage.xml');
 

▲今後のdtpwiki.jp 独自生成（digitalimage.pl 使用） RSS

ちゃんと title と description が入りました。

これを、http://dtpwiki.jp/rss/digitalimage.xml に書き出しするように設定しましたので、使われる方はどうぞ。

～～～

あとから、www.digitalimage.jp へちゃんと報告しておきたいと思いますけれども、なんだか忙しいっていっていましたので、すぐに改善しないかもしれません。

（おまけ）

いままで rssgen.plで使っていた、digitalimage.lst をここに記録しておきます。

http://www.digitalimage.jp/<>www.digitalimage.jp - デジタル画像に関してお任せください！<>MD関連ニュース<>15<>登録ユーザ<>業界ニュース<><li><a href="(.*?)">(.*?)</a>.*</li><>http://dtpwiki.jp/rss/digitalimage.xml<>digitalimage.xml
 

2005.03.01 08:00 投稿　大野 義貴 [RSS] | 固定リンク |