PerlでTwitter bot作成のために投稿を試してみる
PerlでのTwitterへの投稿はNet::Twitter::Liteを使うのがいいみたい。
(Net::TwitterはMooseを使っているらしい)
事前にbotに使いたいTwitterアカウントでhttps://dev.twitter.com/にログインしてconsumer_keyやらaccess_tokenを取得しておきます。
今回4つのデータはConfig::Pitにて利用することにしました。
#!/usr/bin/env perl use strict; use warnings; use utf8; use Net::Twitter::Lite; use Config::Pit; my $conf_consumer = pit_get("consumer.twitter.com"); my $conf_oauth = pit_get("oauth.twitter.com"); my $nt = Net::Twitter::Lite->new(%$conf_consumer); # access_token $nt->access_token($conf_oauth->{oauth_token}); # access_token_secret $nt->access_token_secret($conf_oauth->{oauth_token_secret}); # ツイート my $res = $nt->update('ツイートテスト');
参考サイト
Perl製Twitter BotにOAuth認証で投稿させる/楽