Net::Twitter で簡単に作る Twitter ボットスクリプト紹介

「なでしこ」って日本語でプログラミングできて、Twitter ボットも作れるんですね！

最近、話題のマイクロブログ Twitter で自動的に発言するプログラム（通称：ボット）を作る方法を紹介します。日本語のプログラミング言語「なでしこ」を使って作るので、専門知識は少しで大丈夫です。面白い（あるいは役に立つ）ボットを作って楽しみましょう。

八角研究所 : 誰でも簡単にできる Twitter ボット作成入門

僕は Perl で Net::Twitter というモジュールを使ってサクッとボットを作っているいるのでその簡単なスクリプト例を紹介します。

とりあえず、Net::Twitter 便利なので、CPAN からインストールしてください。そんで今回作るボットは超簡易なものにしました。スクリプトを実行するとフォローされている人をランダムに選んで、その人に対してナンパ言葉を適当につぶやく名付けて「@nanpaman」です。

nanpaman

スクリプトはこんな感じだよ！

 use strict;
use warnings;
use List::Util qw( shuffle );
use Net::Twitter;
use utf8;

my @nanpa_text = qw/
へいname、ちょっとお茶しない？
nameと一緒にTwitterできてぼくは本当に幸せだよ
オレの彼女になってくれないかな…好きだよ！
nameにフォローされてからずっと、nameのことばかり考えていました。愛してる
気持ちいいよー。俺が。
/;

my $nt = Net::Twitter->new(
    traits   => [qw/API::REST/],
    username => 'username',
    password => 'password',
);

if ( my $followers = $nt->followers ) {
    my $target_user = shuffle( @$followers );
    my $screen_name = $target_user->{screen_name};
    my $text = shuffle( @nanpa_text );
    eval { $text =~ s/name/$screen_name/ };
    $text = "\@$screen_name " . $text;
    $nt->update( $text );
    warn "$text\n";
}

簡単ですね！これを cron で何分かおきに実行すれば、一応ボットになります。ただ、この場合投稿した情報等をどこにも保存していないので、連続して同じポストをしたりします。ナンパ言葉のバリエーションも含めその当たりは工夫が必要になってきますね。

ということで、Perl でも簡単に Twitter ボットを作ることができますよーというお話でした。Enjoy!