未来検索Livedoorからトランペット関連記事を集めてみた

公開日： 2004/10/29 : ブログ関係

前回、Yahoo!掲示板から「トランペット」関連の話題をピックアップ下のに続いて、次は「未来検索Livedoor」で同様の奴をやってみました。また下のほうにあるので、よろしければどうぞ。RSSの取得元は未来検索livedoorです。
ちなみに未来検索livedoorヘルプページによると、未来検索とは

未来検索 livedoorとはアラート（お知らせ）機能つきのBlog検索エンジンです。
未来検索livedoorの検索対象は日本国内のすべてのBlogです。
もちろん使用しているツールの種類やpingを送信しているかどうかも問いません。

です。つまりは横断Blog検索エンジンですね。

要領は前の
ようやっとiTunesMusicStoreのRSSを弄ってみた。【トランペットブログ”Horagay”】 http://www.horagay.com/archives/000200.html
Yahoo!掲示板からトランペットを検索【トランペットブログ”Horagay”】 http://www.horagay.com/archives/000202.html
と全く同じでしたが…
未だにエンコード周りが分からずいきあたりばったりで文字化けを直したり、ファイルハンドラにDATAを使わないとエラーが出るのがなぜか未だに分からんかったりと、散々ですヾ（’A`）ノ
そしてcron上手くいってない予感…。
またソースのっけておきます…



#!/usr/bin/perl -I ./lib
#未来検索LivedoorのRSSを取得して、JS形式で表示する。

#cronでまわす。
#burazil_parse.pl

#[IN] : http://rss.sf.livedoor.com/search?q=%a5%c8%a5%e9%a5%f3%a5%da%a5%c3%a5%c8&sf=update_date&start=0
use strict ;

use Encode ;

use LWP::Simple ;

use XML::RSS ;

use HTML::Template ;

use encoding 'euc-jp' , STDOUT => 'UTF-8' ;
#ローカルにRSSをミラーする

my $url ="http://rss.sf.livedoor.com/search?q=%a5%c8%a5%e9%a5%f3%a5%da%a5%c3%a5%c8&sf=score&start=0" ;

my $local_path = "miraikensaku.rss" ;

mirror($url , $local_path) or die "I can't get data from $url\n" ;
#それをParseする。

my $rss = new XML::RSS ;

eval{

$rss -> parsefile( $local_path ) ;

};

warn "Error when parsing : $rss" ;
my @item_list ;

foreach ( @{$rss -> items} ){

my $title = $_ -> {title} ;

my $link = $_ -> {link} ;

my $description = $_ -> {description} ;
push @item_list , { title => $title , link => $link , description => $description

} ;

}
#テンプレートに。
my $template = HTML::Template -> new( filehandle => \*DATA ) ;

$template ->param( items => \@item_list ) ;

my $output = $template -> output() ;
open ( JS , ">mirai.js");

my @line = split/\n/ , $output ;

for ( @line ){

s/\x27/&#x27;/g ;

#Encode::encode("utf-8" , $_ );

print JS "document.writeln('$_') ; \n" ;

}

close JS ;

exit(0);
#テンプレート

__DATA__

<div id="miraikensaku_list">

<dl>

<TMPL_LOOP name=items>

<dt>■<a href="<TMPL_VAR name=link escape=HTML>" target="_blank"><TMPL_VAR

name=title escape=HTML></a></dt>

<dd><TMPL_VAR name=description escape=HTML></dd></TMPL_LOOP></dl>

</div>