理系学生日記

おまえはいつまで学生気分なのか

Pin の Read It Later への転送スクリプト

WebService::{LivedoorReader,ReadItLater} の書き直しに伴い、Livedoor Reader の Pin 立てたエントリを Read It Later に送るスクリプト書き直した。

これを cron に仕込んで一時間に一回くらい回しておけば、インターネットドリブン、インターネットバインドの駄目電脳マイ人生が加速する。

use strict;
use warnings;
use Config::Pit;
use WebService::LivedoorReader;
use WebService::ReadItLater;

my $ldr = WebService::LivedoorReader->new( pit_get('ldr') );
my $ril = WebService::ReadItLater->new( pit_get('ril' ) );

$ril->add_pages([ 
    map { +{ url => $_->link, title => $_->title}  } $ldr->pins->elements
])
$ldr->clear_pins;