PerlによるTwitter botの作り方

PerlのNet::Twitter packageを使用してTwitterを利用するbotの作り方．

インストール

CPANからNet::Twitterをインストールする．

$ cpan Net::Twitter

Net::Twitterは多くの外部packageに依存している[1]．

必要なpackageは自動的にインストールされるはずだが，失敗することもある． その場合はエラーメッセージを見て，不足しているpackageを同様にcpanからインストールする．

例えばDateTimeが足りなくてエラーが出ていたら，

$ cpan DateTime

を実行すればよい．

Net::Twitterを使用するScriptの作成

つべこべ説明せずに，例を示す．

↓はキーワード検索する例である． (ファイル twitter-search.pl にセーブしておく)．

#!/usr/bin/perl
use strict;
use Net::Twitter;
use utf8;
binmode STDOUT, ":utf8";

my $consumer_key = "<<<YOUR OWN consumer key>>>";
my $consumer_secret = "<<<YOUR OWN consumer secret>>>";
my $access_token = "<<<YOUR OWN access token>>>";
my $access_token_secret = "<<<YOUR OWN access token secret>>>";

my $handle = Net::Twitter->new({
    traits => [qw/OAuth API::RESTv1_1 API::Search/],
    consumer_key => $consumer_key,
    consumer_secret => $consumer_secret,
    access_token => $access_token,
    access_token_secret => $access_token_secret});

do_search($_) foreach @ARGV;

sub do_search {
    my $term = shift;

    my @results;
    my $rs = $handle->search({q=>$term, lang=>"ja", page=>1, rpp=>100});
    if (ref $rs eq 'HASH' && exists $rs->{results}) {
        if (@{$rs->{results}}) {
            print_post($_) foreach @{$rs->{results}};
        }
    }
}

sub print_post {
    my $t = shift;

    print "$t->{from_user} (on $t->{created_at})  $t->{text}\n";
}

しかし，まだ実行できない．"<<<YOUR OWN...>>>" の部分を↓で示す方法で得られる文字列に置き換える．

アプリケーションの登録

Twitterは以前はBasic Authをサポートしていたらしいが，現在は廃止してしまった． ここではOAuthを使用する． このためにはTwitterのAPIを使用するアプリケーションは，Twitter developer portalでアプリケーションを登録して，

• consumer key
• consumer secret
• access token
• access token secret

を手に入れる必要がある．以下にその手順を示す．

• ブラウザで http://dev.twitter.com/ を開いて，twitter accountでSing inする．
• Create an Appリンクを押して，アプリケーションの登録に進む．
• 登録するアプリケーションの詳細を入力する．
  • アプリケーション名: 適当に名づける
  • アプリケーションの説明: アプリケーションの説明書き
  • アプリケーションのウェブサイトURL: アプリケーションのユーザが見に行くページがったらそのURLを指定する．
  • 所属会社／団体: もしあれば入力する
  • アプリケーションの種類: Perlスクリプトの場合は クライアントアプリケーション を選択する．
  • 標準のアクセスタイプ: 読み書きするなら Read & Write を，読むだけなら Read-only を選択する．
  • アプリケーションのアイコン: アイコンイメージがあったら指定する．以上の設定はどれも後からでも変えられる．
  • 最後にCaptcha(変形した文字列)を読んだ通りにインプットしたら，アプリケーションを登録ボタンを押して登録を完了する．

すると，登録したアプリケーションの情報が掲載されているページが開く．(このページは，後でTwitter developer portalからYour appsボタンを押して登録したアプリケーションのページを選ぶといつでも表示できる．)

このページの OAuth 1.0a Settings セクションから，

• Consumer key
• Consumer secret

をコピーして，スクリプトの中に埋め込む．

さらに，をクリックして表示されるページから，

• Access Token (oauth_token)
• Access Token Secret (oauth_token_secret)

をコピーして，スクリプトの中に埋め込む．

以上で完成．

テスト実行

スクリプトを実行してみる．

$ chmod +x twitter-search.pl
$ ./twitter-search.pl "radioactive"

すると，キーワード (radioactive) を含む呟きを検索してその結果が100件出力されれば成功である．

呟くbot

呟くにはNet::Twitterのupdateメソッドを使う．例えば，

...
my $msg = "メッセージ";
my $handle = Net::Twitter->new({
    traits => [qw/OAuth API::REST/],
    consumer_key => $consumer_key,
    consumer_secret => $consumer_secret,
    access_token => $access_token,
    access_token_secret => $access_token_secret});
});
my $ret = $handle->update({status=>$msg});
print "Cannot post!!" unless $ret;

こんな感じ．

詳しくは，オンラインマニュアル または $ perldoc Net::Twitter でローカルのマニュアルを参照．

参考文献

• Twitter developers portal | Twitter API Wiki
• CPAN Net::Twitter
• OAuth
• この方法で作られた天気予報bot | 詳細
• この方法で作られた放射線量bot | 詳細