TwitterのAPIがすべてSSLになり403 forbiddenと表示されるようになったので対策してみました。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 | #!/usr/bin/perluse utf8;use strict;use warnings;# モジュール使用宣言use Encode;use FindBin;use YAML::Tiny;use Array::Diff;use Net::Twitter;# 現在のパスから見て設定ファイルを読み込みmy $config = (YAML::Tiny->read($FindBin::Bin . '/config.yml'))->[0];# OAuth認証my $twitter = Net::Twitter->new( traits => ['API::RESTv1_1', 'OAuth'], consumer_key => $config->{'consumer_key'}, consumer_secret => $config->{'consumer_secret'}, legacy_lists_api => 0);$twitter->access_token($config->{'access_token'});$twitter->access_token_secret($config->{'access_token_secret'});# 認証失敗時の処理die('Auth failed:'.$config->{'username'}) unless ( $twitter->authorized ) ;# ユーザー名を含むユーザー情報を取得my $own_id = $twitter->verify_credentials->{id};my $nextc = -1; # paging default.my @following_id_list; # outgo# APIの仕様？から一度に100人までしか取得できないから0が返ってくるまでdoブロックをループdo{ # パラメータcursorは前回取得したフォローイングまでの番号が入っている my $following_list = $twitter->friends_ids({ id=>$own_id, cursor => $nextc }); $nextc = $following_list->{next_cursor}; # 配列からフォローイングのidを取得 foreach my $id (@{ $following_list->{ids} }){ push(@following_id_list, $id); # 後で比較するためにフォローイングを配列に保管 }}while($nextc!=0);# 文字昇順でソート@following_id_list = sort @following_id_list;$nextc = -1;my @followers_id_list; # income# APIの仕様？から一度に100人までしか取得できないから0が返ってくるまでdoブロックをループdo{ # パラメータcursorは前回取得したフォロワーまでの番号が入っている my $followers_list = $twitter->followers_ids({ id=>$own_id, cursor => $nextc }); $nextc = $followers_list->{next_cursor}; # 配列からフォロワーのidを取得 foreach my $id (@{ $followers_list->{ids} }){ push(@followers_id_list, $id); # 後で比較するためにフォロワーを配列に保管 }}while($nextc!=0);# 文字昇順でソート@followers_id_list = sort @followers_id_list;# 差分を取得(フォローイング)my $diff_following = Array::Diff->diff(\@following_id_list, \@followers_id_list);# 差分を取得(フォロワー)my $diff_followers = Array::Diff->diff(\@followers_id_list, \@following_id_list);# リムった人をリム返しforeach my $delid_following (@{ $diff_following->{deleted} }){ eval{$twitter->destroy_friend({user_id => $delid_following})}; # プライベートだとエラーになる人がいるので確認用 print $delid_following . "\n" if($@);}# フォローした人をフォロー返しforeach my $delid_followers (@{ $diff_followers->{deleted} }){ eval{$twitter->create_friend({user_id => $delid_followers})}; # プライベートだとエラーになる人がいるので確認用 print $delid_followers . "\n" if($@);} |
http://search.cpan.org/~mmims/Net-Twitter-4.01002/lib/Net/Twitter/Role/AutoCursor.pm
friends/ids と followers/ids が仕様変更になるみたいです。また使えなくなりそうですよ。