トランペットブログ個別記事

#!/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/'/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>