ちょっとしたツール

Perl

社内で、ちょっとしたことリクエストされたので、小ツール作ってみました。

リクエスト内容は、

  • 各ブログやニュースサイトを巡回するのが面倒だからなんとかしてほしい。

さらに

  • 個々のサイトのRSSを登録するのが面倒だから窓口を一つにして欲しい。

ようするに面倒だから何とかしろと。

PerlでRSSを扱うにはXML::RSSやXML::RSSLiteなどの便利なモジュールがありますが、ちょっと調べるとXML::FeedPPが便利そう。

実装は案外簡単にできた。

CPANからXML::FeedPPをinstall後、

my $feed = XML::FeedPP->new($URL);
$feed->merge($NextURL);
$feed->to_file("index.rdf","UTF-8");

XML::FeedPPインスタンスを作成した後、追加したいURLをmergeメソッドの引数に指定すれば結合されます。

結合した後は、to_fileメソッドを使ってRSSファイルを作成。

URLはリスト化（もしくは外部ファイル化など）して繰り返し処理すれば指定したURLのRSSを結合した一つのRSSファイルが簡単にできちゃいます。

後はCRON登録で、指定した時間ごとに読み込みに行くように設定すれば自動的に更新されます。

作成したRSSファイルはWebアクセスできる場所に配置するようにし、当該RSSをRSSリーダーに登録すればOK。

けっこう便利。andまとまった情報の配信にGood。

ちょこツールの紹介でした。

追記。
このツール社内イントラなんかに仕掛ければ情報を一元的に配布できて良いかも。
まずは部門内にドライブかけるか。
他にも使い方はイロイロありそう。URLを個人（管理者）が追加登録できるようにすれば窓口広がるし。