M.C.P.C. (Mamesibori Creation Plus Communication)

印刷屋から五反田のWeb屋に転職したCLのブログです。

Twitter API version 1.1対応Net::Twitter 4.00000_01が出ているよ

2013年3月に予定されているTwitter API version 1.0廃止の前になんとかせねば、って、しこしこエンドポイントの書き換えとかしていたら、1月28日付けで新API対応のデベロッッパーリリースが出ていました。

4.00000_01 2013-01-28
    - Added Twitter API version 1.1 support

http://cpansearch.perl.org/src/MMIMS/Net-Twitter-4.00000_01/Changes

http://blog.dtpwiki.jp/dtp/2011/09/perltwitteroaut.html で書いたやつを書き直すと、

!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Net::Twitter 4.0000001; # Twitter API version 1.1対応版
my $twit = Net::Twitter->new(
    traits => [qw/API::RESTv1_1 WrapError/],
    consumer_key    => 'o3ca3zChEnEK3sEKM6Uw',
    consumer_secret => 'LU69ATliCLFWalIt1Q8aR7gFYcQuG9hqTOOPFNVNU',
    ssl => 1,
);
$twit->access_token       ('12345678-i9QgwXsXhRj3A1mcX9ok8egM68dJcS26r3lKBaVg8');
$twit->access_token_secret('joCdbaccz7PKmw7VLsFFgsW2JAgOHk4cEW7Src8zH');
$twit->update('もへもへ');
exit;
__END__

こんな感じです。

  • API::REST から API::RESTv1_1に変更
  • OAuth必須なのであえてパラメータに入れない
  • SSL接続はお好みで(SSLを使用するほうが当然おすすめ)
なお、Twitter API version 1.1経由でNet::Twitter (4.00000_01から旧バージョン含む)を使って、「! ' ( ) * [ ] 」を含むツイートをすると投稿できないみたいですので注意してください。

(2013-02-28 22:32追記)

Net::Twitter 4.00003にて、前述の不具合が解消されました。