tumblrのlikesを別アカウントにreblogするスクリプトを書いた。まだ習作なので実用には耐えない。実際にはlikesの取りこぼしをしないように読み込みを工夫しなければいけないし、reblog失敗が即死というのもあんまりだし、重複reblog対策も必要だと思う。とにかくエラーハンドリングが必要になるはずだ。まあreblogができることは確認したので、コアな部分はカバーしているはず。個人的にlikesも活用したいので、ちゃんとしたツールの形にしていきたい。(追記: リファインしてgithubにあげた) #!/usr/bin/env perl package Tumblr; use WebService::Tumblr; @ISA = qw(WebService::Tumblr); sub reblog { my $self = shift; my %arguments = @_; m