読者です 読者をやめる 読者になる 読者になる

PerlでTwitter bot作成のために投稿を試してみる

PerlでのTwitterへの投稿はNet::Twitter::Liteを使うのがいいみたい。
(Net::TwitterMooseを使っているらしい)


事前に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認証で投稿させる/楽