Perlでtwitterに書き込んでみた

なんかTwitterでspamが来て、はじめて自動でかけることに気がつきました（ぉ
というわけで書いてみました。

検索だけならsearch APIでできますが、書き込みには認証しなければなりません。
twitterで使われているユーザ認証はOAuthといって、twitter側への登録が必要です。
開発HPからこんな感じで登録できました。



で、書き込みはPerlのNet::Twitter::Liteを使わせてもらいました。
書くだけだったらこれだけでできます。簡単！
の割りに書き込むまで3Hほど掛かりましたがlol

use utf8;
use strict;
use Net::OAuth::Simple;
use Net::Twitter::Lite;

# TwitterHPの各値をセットする
my $tw = Net::Twitter::Lite->new(
consumer_key => "xxx",
consumer_secret => "xxx",
access_token=>"xxx",
access_token_secret=>"xxx"
);

$tw->update("ほげー");


なんとか寝る前に終わった...すっきり。