Skip to content

Instantly share code, notes, and snippets.

@toritori0318

toritori0318/get_all_friends.pl

Created February 12, 2012 15:00
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save toritori0318/1808929 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save toritori0318/1808929 to your computer and use it in GitHub Desktop.
Download ZIP
friend全員を取得するスクリプト
Raw
get_all_friends.pl
# $nt = Net::Twitter:Lite
my @friends;
for ( my $cursor = -1, my $r; $cursor; $cursor = $r->{next_cursor} ) {
$r = $nt->friends({ cursor => $cursor });
push @friends, @{ $r->{users} };
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment