PerlによるTwitter botの作り方 - 版の履歴

Fukudat: /* インストール */

2022-03-14T00:57:42Z

インストール

2020年5月24日 (日) 11:55にFukudatによる

2020-05-24T11:55:52Z

Fukudat: /* 参考文献 */

2020-05-24T07:04:52Z

参考文献

Fukudat: /* 参考文献 */

2020-05-24T07:04:26Z

参考文献

Fukudat: /* 参考文献 */

2020-05-24T07:03:31Z

参考文献

Fukudat: /* 参考文献 */

2020-05-24T07:02:52Z

参考文献

Fukudat: ページの作成:「PerlのNet::Twitter packageを使用してTwitterを利用するbotの作り方．Category:How-To == インストール == CPANからNet::Twitterをインストー...」

2020-05-24T07:00:10Z

ページの作成:「PerlのNet::Twitter packageを使用してTwitterを利用するbotの作り方．Category:How-To == インストール == CPANからNet::Twitterをインストー...」

新規ページ

PerlのNet::Twitter packageを使用してTwitterを利用するbotの作り方．[[Category:How-To]]

== インストール ==
CPANからNet::Twitterをインストールする．
<pre>
$ cpan Net::Twitter
</pre>
Net::Twitterは多くの外部packageに依存している[http://deps.cpantesters.org/?module=Net::Twitter;perl=latest]．
必要なpackageは自動的にインストールされるはずだが，失敗することもある．その場合はエラーメッセージを見て，不足しているpackageを同様にcpanからインストールする．

例えばDateTimeが足りなくてエラーが出ていたら，
<pre>
$ cpan DateTime
</pre>
を実行すればよい．

== Net::Twitterを使用するScriptの作成 ==
つべこべ説明せずに，例を示す．

↓はキーワード検索する例である． (ファイル twitter-search.pl にセーブしておく)．
<pre>
#!/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";
}
</pre>
しかし，まだ実行できない．"<<<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 を選択する．
** アプリケーションのアイコン: アイコンイメージがあったら指定する．以上の設定はどれも後からでも変えられる．
** 最後に[[wiki:Captcha|Captcha]](変形した文字列)を読んだ通りにインプットしたら，アプリケーションを登録ボタンを押して登録を完了する．
すると，登録したアプリケーションの情報が掲載されているページが開く．(このページは，後でTwitter developer portalからYour appsボタンを押して登録したアプリケーションのページを選ぶといつでも表示できる．)

このページの OAuth 1.0a Settings セクションから，
* Consumer key
* Consumer secret
をコピーして，スクリプトの中に埋め込む．

さらに，をクリックして表示されるページから，
* Access Token (oauth_token)
* Access Token Secret (oauth_token_secret)
をコピーして，スクリプトの中に埋め込む．

以上で完成．

== テスト実行 ==
スクリプトを実行してみる．
<pre>
$ chmod +x twitter-search.pl
$ ./twitter-search.pl "radioactive"
</pre>

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

== 呟くbot ==
呟くにはNet::Twitterのupdateメソッドを使う．例えば，
<pre>
...
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;
</pre>
こんな感じ．

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

== 参考文献 ==
* [http://www.ibm.com/developerworks/jp/linux/library/l-perl-twitter/index.html Perlを使用してTwitterを実務に利用する (IBM developerWorks)] ... 少し古くて，今は廃止されてしまったBasic認証を使用している．
* [http://dev.twitter.com/ Twitter developers portal] | [http://apiwiki.twitter.com/w/page/22554648/FrontPage Twitter API Wiki]
* [http://search.cpan.org/dist/Net-Twitter/ CPAN Net::Twitter]
* [[wiki:OAuth|OAuth]]
* [[Nowcast|この方法で作られた天気予報bot]]
* [[Gm-10|この方法で作られた放射線量bot]]

@@ 125行目: / 125行目: @@
 * [http://dev.twitter.com/ Twitter developers portal] | [http://apiwiki.twitter.com/w/page/22554648/FrontPage Twitter API Wiki]
 * [http://search.cpan.org/dist/Net-Twitter/ CPAN Net::Twitter]
-* [[wiki-jp:OAuth|OAuth]]
+* [[wiki-ja:OAuth|OAuth]]
 * [https://twitter.com/nowcast_azbjbn この方法で作られた天気予報bot] | [[Nowcast|詳細]]
 * [https://twitter.com/mita_rad この方法で作られた放射線量bot] | [[Gm-10|詳細]]

@@ 125行目: / 125行目: @@
 * [http://dev.twitter.com/ Twitter developers portal] | [http://apiwiki.twitter.com/w/page/22554648/FrontPage Twitter API Wiki]
 * [http://search.cpan.org/dist/Net-Twitter/ CPAN Net::Twitter]
-* [[wiki-en:OAuth|OAuth]]
+* [[wiki-jp:OAuth|OAuth]]
 * [https://twitter.com/nowcast_azbjbn この方法で作られた天気予報bot] | [[Nowcast|詳細]]
 * [https://twitter.com/mita_rad この方法で作られた放射線量bot] | [[Gm-10|詳細]]

@@ 125行目: / 125行目: @@
 * [http://dev.twitter.com/ Twitter developers portal] | [http://apiwiki.twitter.com/w/page/22554648/FrontPage Twitter API Wiki]
 * [http://search.cpan.org/dist/Net-Twitter/ CPAN Net::Twitter]
-* [[wiki:OAuth|OAuth]]
+* [[wiki-en:OAuth|OAuth]]
 * [https://twitter.com/nowcast_azbjbn この方法で作られた天気予報bot] | [[Nowcast|詳細]]
 * [https://twitter.com/mita_rad この方法で作られた放射線量bot] | [[Gm-10|詳細]]

@@ 2行目: / 2行目: @@
 == インストール ==
-CPANからNet::Twitterをインストールする．
+CPANから[https://metacpan.org/pod/Net::Twitter Net::Twitter]をインストールする．
 <pre>
 $ cpan Net::Twitter