すぎゃーんメモ

Twitterのfollowerをlistに追加するワンライナー

Perl, Twitter, OneLiner

140文字以内に収まるように頑張った結果

perl -MNet::Twitter -e'$t->add_list_member(sugyan,listname,$_)for@{($t=new Net::Twitter traits,[API::Lists,Legacy],netrc,1)->followers_ids}'

add_list_member に渡す引数(上記では sugyan, listname)はハードコード、

指定する名前のlistは作ってあって、.netrcファイルにusernameとpasswordが書いてあるという前提。

machine api.twitter.com
  login sugyan
  password ********

あと全然知らなかったのだけど、1つのlistに登録できるのは500ユーザまでらしい。

Page not found | Twitter Developers

ので、followersが500を超えている場合は"followers/ids"でとれるidの最初の500件までしか登録されない。たぶん。

"followers_ids"は5000件くらいまでは一発で取れるようなのでshuffleすれば毎回違うメンバーでlist作れるかも

perl -MList::Util=shuffle -MNet::Twitter -e'$t->add_list_member(sugyan,followingme,$_)for shuffle@{($t=new Net::Twitter traits,[API::Lists,Legacy],netrc,1)->followers_ids}'

ツイートする

Permalink | コメント(0) | トラックバック(0) | 03:06