必要なもの
アクセストークンを入手する
Twitter公式サイトの https://dev.twitter.com/apps/ ここから入手する。やり方はググったら画面付きの詳しい情報が沢山出てくる。ここで設定するアプリケーション名がよくある「○○からツイート」の情報になるので、適切な名前を設定する。
コード
****の部分は、自身で取得したアクセストークン周りの情報と置き換えてください。コマンドライン引数で渡した文字が、登録したユーザー名のアカウントでツイートされます。
#!/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;