読者です 読者をやめる 読者になる 読者になる

Net::Twitterで自分のフォロアーを取得する

Perl

自家製りむったー作ろうと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で保存して動かしてます。