しゃある通信

#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";
    }
}
これだけですんじゃうのは素晴らしいな。



マクロミルへ登録

© 2010 Kazuya 'Sharl' Masuda
(C)Willoo Entertainment Inc. (C)Konami Digital Entertainment 株式会社ウィローエンターテイメント及び株式会社コナミデジタルエンタテインメントの著作権を侵害する行為は禁止されています。 0.030840 cached