use LWP::Simple 'get'; use XML::RSS; use Jcode; $key = $ENV{'QUERY_STRING'}; if( $key eq "" ) { $key = 'asahi'; } $url = 'http://bulknews.net/rss/rdf.cgi?' . $key; #RSSを取得し解析 $rss = new XML::RSS; $rss->parse( get( $url ) ); #HTMLのヘッダを出力 print < EOF foreach $line ( @{$rss->{items}} ) { #中身を取り出す $title = $line->{title}; $link = $line->{link}; $description = $line->{description}; #文字コードをS-JISに変換 &Jcode::convert( \$title, 'sjis' ); &Jcode::convert( \$link, 'sjis' ); &Jcode::convert( \$description, 'sjis' ); #表示 #(一つの print文で出力すると、何故か化ける・・・) print ""; print $title; print "
\n"; } print < EOF