...pudding - diary

_ [Software] Twitter API v1.1 をサポートした Net::Twitter

Marc Mims / Net-Twitter - search.cpan.org

perl で使う Twitter アクセス用の Net::Twitter 、新しいバージョン 4.00001 が出て Twitter API v1.1 がサポートされました。いいですね。とりあえずアクセスしてみてタイムラインから最新10件を取得してみましょう。

#!/usr/bin/perl
#
use strict;
use utf8;
use Encode;
use Net::Twitter;
use Scalar::Util 'blessed';
#
my $twit = Net::Twitter->new(
    traits   => [qw/API::RESTv1_1/],
    consumer_key        => 'SxoxQx6xfx6xrxKxixsxw', 
    consumer_secret     => 'BxPxpxGdwX9xtxOx6xzxVxRxfxuxgxlxyxhxAxlxk', 
    access_token        => '5x7x7x2-HxsxlxBxgxHxoxpxMxSx2xdxgx2xMxExXxixYxEx', 
    access_token_secret => 'XxexZxrxvxxxWxtxCxRxMx2xbxHxcxqxuxhxVxtxU', 
    ssl => 1,
    );
#
eval {
    my $statuses = $twit->home_timeline({count => 10});
    for my $status ( @$statuses ) {
        print "$status->{created_at} <$status->{user}{screen_name}> ". encode('utf-8', $status->{text}) ."\n";
    }
};
if ( my $err = $@ ) {
    die $@ unless blessed $err && $err->isa('Net::Twitter::Error');
      warn "HTTP Response Code: ", $err->code, "\n",
           "HTTP Message......: ", $err->message, "\n",
           "Twitter error.....: ", $err->error, "\n";
}
exit;

上記コード中の consumer_key とか access_token とかの値はフェイクです。自分用のキーを取得して使おうね。