URLだけ与えると、タイトルを取得してReadItLaterに新規登録するスクリプトのテスト。
RILDev/addpage.pl at master · satojkovic/RILDev · GitHub
#!perl use strict; use warnings; use Config::Pit; use WebService::Simple; use Encode; use URI::Title; use Data::Dumper; my $uri = $ARGV[0]; if( @ARGV != 1 ) { die "Please specify the URL"; } my $title = URI::Title::title($uri); if( !defined($title) ) { $title = "new page"; } my $conf = pit_get("readitlater.com", require => { "APIKey" => "API key on readitlater.com", "username" => "your username on readitlater.com", "password" => "your password on readitlater.com" }); my $service = WebService::Simple->new( base_url => 'https://readitlaterlist.com/v2/', param => { apikey => "$conf->{APIKey}", username => "$conf->{username}", password => "$conf->{password}" }, ); my $res = $service->get("add", { url => $uri, title => $title }); if( $res->is_success ) { print $res->content . "\n"; } else { print $res->status_line;; }
ターミナルから実行する。
$ perl addpage.pl http://jp.techcrunch.com/archives/20120409facebook-to-acquire-instagram-for-1-billion/ 200 OK