自家製りむったー作ろうとPerlのお勉強しながらやってます。
とりあえずほとんどソースだけ
#!/opt/local/bin/perl use strict; use warnings; use utf8; use Net::Twitter; # OAuthの各種ステータス # 自分でなんとかしてください! my $consumer_key = ''; my $consumer_secret = ''; my $access_token = ''; my $access_token_secret = ''; my $twit = Net::Twitter->new( traits => ['API::REST', 'OAuth'], consumer_key => $consumer_key, consumer_secret => $consumer_secret, ); $twit->access_token( $access_token ); $twit->access_token_secret( $access_token_secret ); # フォロアーが一定数以上の時はcursorがなんかよくわかんないけどアレ my $cursor = -1; while( $cursor != 0 ){ my $f = $twit->followers({ cursor => $cursor }); $cursor = $f->{ next_cursor }; foreach my $u( @{$f->{ users }}){ print $u->{ screen_name }."\t".$u->{ id }."\n"; } } exit; __END__
こんな感じでした。
案外楽に出来ましたね。
なんか改行コードをMacのにしてると動きませんでした。あと、ソースはUTF-8で保存して動かしてます。