NeverBlog::Likk::Unexistable;

見なかったことにして下さい

こうなったら全員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で毎分とかやると多分怒られます。