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

log

日記です

Net::Twitterを使ってつぶやいてみる

perl

必要なもの

アクセストークンを入手する

Twitter公式サイトの https://dev.twitter.com/apps/ ここから入手する。やり方はググったら画面付きの詳しい情報が沢山出てくる。ここで設定するアプリケーション名がよくある「○○からツイート」の情報になるので、適切な名前を設定する。

Net::TwitterをCAPNでいれる

$ cpan Net::Twitter
で入れます。

コード

****の部分は、自身で取得したアクセストークン周りの情報と置き換えてください。コマンドライン引数で渡した文字が、登録したユーザー名のアカウントでツイートされます。

#!/usr/bin/perl

use strict;
use warnings;
use Encode;
use utf8;
use Net::Twitter;

my $twit = Net::Twitter->new(
        traits => [qw/API::REST OAuth WrapError/],
        consumer_key    => '********',
        consumer_secret => '********',
        ssl => 1,
        );
$twit->access_token       ('********');
$twit->access_token_secret('********');
$twit->update( decode_utf8($_) ) for @ARGV;
exit;