#!/usr/bin/perl -w
use strict;
#use utf8;
use LWP::Simple;
use XML::Simple;
my $listmax = 5;
my $url ="http://newsing.jp/user/buzei/pickup/rss";
my $content = get($url);
die "Could not retrieve $url" unless $content;
my $xmlsimple = XML::Simple->new();
my $response = $xmlsimple->XMLin($content);
my $listurl = $response->{channel}->{link};
my $item = $response->{channel}->{item};
my $itemlist = getitemlist(@{$item});
# HTMLソースの作成
my $htmlsrc = <<"End_of_Temp";
ピックアップニュース
$itemlist
もっと見る...
End_of_Temp
# ファイルに出力
open(OUT, ">pickup.html");
print OUT $htmlsrc;
close(OUT);
exit;
sub getitemlist {
my @items = @_;
my $itemlist = '';
my $i = 0;
foreach my $item (@items) {
if ($i >= $listmax) {
last;
}
$itemlist .= "{link} . "\" target=\"_blank\">" . $item->{title} . "
";
$i++;
}
return $itemlist;
}