[Ubuntu,perl,Twitter]Net::Twitter::Lite更新

#13-02 [Ubuntu,perl,Twitter]Net::Twitter::Lite更新

Followers一覧を取得するスクリプトもOAuthに対応しておくかー、とふにふに。ついでにNet::Twitter::Liteを0.08006から0.10003にアップデート。

my $cursor = -1;
while ($cursor != 0) {
    my $f = $tw->followers({cursor => $cursor});
    $cursor = $f->{next_cursor};
    foreach my $u (@{$f->{users}}) {
        print $u->{screen_name} . "\t" . $u->{id} . "\n";
    }
}

これだけですんじゃうのは素晴らしいな。