来るものは拒まないどころか、ストー○ング☆(マテ
Wassr [お気軽メッセージングハブ・ワッサー]
wassr でシャイなあの子とも友達になる方法 - Djangoへの片思い日記
ということで、perl版用意いたしました。
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 @visitor = map{$_->{login_id}} @{$wassr->footmark()}; push @ignore_list,@friends; for my $visitor (uniq(@visitor)){ if( all{ $visitor ne $_ } @ignore_list){ #warn "I follow $visitor"; $wassr->follow($visitor); } }
cronで30分毎にとかやっておけばいいんじゃないですかね。
どちらかと言うと、List::MoreUtils の練習になっているのは秘密です。