autotweet.pl

use strict;
use warnings;

use Config::Pit;
use Net::Twitter::Lite;
use Encode;
use utf8;

my $message =  shift or usage();
$message = Encode::decode('utf-8',$message);
my $interval = shift or usage();
my @postfixes1 = qw/ー ーー ーーー ーーーー ーーーーー ーーーーーー/;
my @postfixes2 = qw/! !! !!! !!!! !!!!!/;

my $conf = Config::Pit::get("twitter.com", require => {
    'token' => "your access token on twitter",
    'token_secret' => "your access token secret on twitter",
    'consumer_key' => "your consumer key on twitter",
    'consumer_secret' => "your consumer secret on twitter",
});

my $nt = Net::Twitter::Lite->new(
    consumer_key => $conf->{consumer_key},
    consumer_secret => $conf->{consumer_secret},
);
$nt->access_token($conf->{token});
$nt->access_token_secret($conf->{token_secret});

while (1) {
    eval { $nt->update($message . $postfixes1[int(rand scalar @postfixes1)] . $postfixes2[int(rand scalar @postfixes2)] ) };
    warn "$@\n" if $@;
    sleep(60 * $interval);
}

sub usage{
    die "usage: $0 <message> <interval(min.)>";
}