Perlについての質問箱 54目
■ このスレッドは過去ログ倉庫に格納されています
0753デフォルトの名無しさん
2012/08/25(土) 23:10:46.85「[501] at line 23」と返ってきてしまいます。
何が原因なのでしょうか?
use strict;
use warnings;
use utf8;
use Encode;
use Config::Pit;
use WebService::RIL;
use WebService::Hatena::Bookmark::Lite;
my $config_ril = pit_get('RIL');
my $ril = WebService::RIL->new(
user => $config_ril->{user},
pass => $config_ril->{pass},
apikey => $config_ril->{apikey},
);
my $config_hatena = pit_get('hatena');
my $bookmark = WebService::Hatena::Bookmark::Lite->new(
username => $config_hatena->{username},
password => $config_hatena->{password},
);
my $list = $ril->get_list(
state => 'unread',
);
for my $item (@{$list->{'list'}}) {
$bookmark->add(
url => $item->{url},
);
}
■ このスレッドは過去ログ倉庫に格納されています