#!/usr/bin/perl
use strict;
use XML::TreePP;
use XML::FeedPP;
my $feed = XML::FeedPP::RSS->new();
eval {$feed->merge( "https://www.kimonolabs.com/api/rss/51jpctr2?&apikey=Hpo3uxKTJJA2W55lcnD7uHgvZ8shKiKQ&kimmodify=1" );};
eval {$feed->merge( "https://www.kimonolabs.com/api/rss/7lcb063a?&apikey=Hpo3uxKTJJA2W55lcnD7uHgvZ8shKiKQ&kimmodify=1" );};
$feed->sort_item();
$feed->uniq_item();
my @items = $feed->match_item( title => qr/今治/, link => qr/201602/ );
my $feeds = XML::FeedPP::RSS->new();
my $now = time();
$feeds->title( "ehime np feed" );
$feeds->description( "ehime np" );
$feeds->link( "http://www.ehime-np.co.jp/news/local/" );
$feeds->pubDate( $now );
foreach my $item ( @items ) {
$feeds->add_item($item);
}
print "Content-Type: text/xml; charset=UTF-8\n\n";
print $feeds->to_string( "UTF-8" );
imabari.hateblo.jp