読者です 読者をやめる 読者になる 読者になる

PerlでRSS 結合 抽出

Perl RSS
#!/usr/bin/perl

use strict;

use XML::TreePP;
use XML::FeedPP;

my $feed = XML::FeedPP::RSS->new();

#RSS URL
#RSSが取得できない場合エラーになるのでeval
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();

#抽出条件 タイトルに今治、URLに201602が含まれる
my @items = $feed->match_item( title => qr/今治/, link => qr/201602/  );

#抽出したitemでRSS生成
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);
#   $feeds->add_item(link => $item->{link}, title => $item->{title}, description => $item->{description});
}

print "Content-Type: text/xml; charset=UTF-8\n\n";
print $feeds->to_string( "UTF-8" );

imabari.hateblo.jp