Net::Twitter::Liteでリツイート削除

remove_rt.pl

use strict;
use warnings;
use Net::Twitter::Lite;

my($consumer_key, $consumer_secret) = qw/
vvvvvvvvvvvvvvvvvvvvvv
wwwwwwwwwwwwwwwwwwwwww
/;
my $nt = Net::Twitter::Lite->new(
    consumer_key    => $consumer_key,
    consumer_secret => $consumer_secret,
);

my($access_token, $access_token_secret) = qw/
xxxxxxxxxxxxxxxxxxxxxx
yyyyyyyyyyyyyyyyyyyyyy
/;
if ($access_token && $access_token_secret) {
    $nt->access_token($access_token);
    $nt->access_token_secret($access_token_secret);
}



# 元のツイートID
my $org_id=11111111111111111111;

# リツイートIDを取得
my $retweet_id;
eval {
    my $statuses = $nt->retweeted_by_me();
    for my $status ( @$statuses ) {
        if($org_id == $status->{retweeted_status}->{id}) {
            $retweet_id = $status->{id};
            last;
        }
    }
};
warn "$@\n" if $@;



# リツイートを削除するには destory を発行
eval {
    $nt->destroy_status($retweet_id);
};
warn "$@\n" if $@;

print "org_id:$org_id\n";
print "retweet_id:$retweet_id\n";