自分のフォロワーのフォロワーを取得するサンプル
自分のfollowerを取得し、取得したfollowerのfollowerを取得するサンプル。
CPANのNet::Twitterを使用しています。
http://search.cpan.org/dist/Net-Twitter/
#!/usr/perl use Net::Twitter; use warnings; use strict; binmode(STDOUT, ":utf8"); my $user = 'twitter_username'; my $password = 'twitter_passowrd'; my $nt = Net::Twitter->new( traits => [qw/API::REST/], username => $user, password => $password ); my $followers = $nt->followers; for my $follower ( @$followers ) { my $id = $follower->{id}; my $user_id = $follower->{status}{id}; my $screen_name = $follower->{screen_name}; # cursor はフォロワーの数が一定数以上のときにページングするために必要? my $cursor = -1; # followingはfollowersをfriends(following)に変えて実行可能。 my $in_followers = $nt->followers({ id => $id, user_id => $user_id, screen_name => $screen_name, cursor => $cursor }); my $users = $in_followers->{users}; for my $in_follower ( @$users ) { print "$in_follower->{screen_name} "; } print "\n"; }