こうなったら全員followしてやるぜ
そろそろ「日本中のひとこと」から無作為にfollowするスクリプト書く時期?... by ヨシオリ - Wassr [お気軽メッセージングハブ・ワッサー]
id:yoshiori はもうwassrアクティブユーザ全員フォローすればいいんじゃね?
とりあえず脊髄反射で。
use strict; use warnings; use Net::Wassr; use List::MoreUtils qw(uniq all); my @ignore_list = qw(); my $wassr = Net::Wassr->new( user => 'LOGIN_ID', passwd => 'PASSWORD' ); my @friends = map{$_->{screen_name}} @{$wassr->friend_list()}; my @public = map{$_->{user_login_id} } @{$wassr->public_timeline()} push @ignore_list,@friends; for my $public (uniq(@public)){ if( all{ $public ne $_ } @ignore_list){ #warn "I follow $public"; $wassr->follow($public ); } }
cronで毎分とかやると多分怒られます。