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 supporthttp://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__
こんな感じです。
なお、Twitter API version 1.1経由でNet::Twitter (4.00000_01から旧バージョン含む)を使って、「! ' ( ) * [ ] 」を含むツイートをすると投稿できないみたいですので注意してください。
Net::Twitter4.00000_01 DEVELOPER RELEASE をインストールして試したがやはり半角の『 ! ' ( ) * [ ] 』が入ってると401 Unauthorized Could not authenticate youで投稿できない!
— macmini osxさん (@macminiosx) 2013年2月5日
(2013-02-28 22:32追記)
Net::Twitter 4.00003にて、前述の不具合が解消されました。