さつまいものたねいも

■ [tool] tumblrの記事をまとめて削除するPerlスクリプト

必要になってさっくり作ったので公開。

tumblr-delete.pl

標準入力からtumblrの記事へのURLまたはID（URL末尾の数字）を受け取り，それらを削除する。

HTTPレスポンスの成功失敗チェックは全く行わないので注意。

$emailと$passwordは適宜書き換えること。

#!/usr/bin/perl
# author: SweetPotato
# link: http://tumblr.g.hatena.ne.jp/SweetPotato/20070921/delete
use strict;
use warnings;

my $email = 'dummy@example.com';
my $password = 'p@s$w0rd';

use HTTP::Cookies;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
   $ua->cookie_jar(HTTP::Cookies->new(file => 'cookie.txt', autosave => 1));
   $ua->post('http://www.tumblr.com/login', { email => $email, password => $password });

while (<>) {
    /(\d+)$/ or next;
    $ua->post('http://www.tumblr.com/delete', { id => $1 });
}