講読してくれたユーザを自動で講読
先日 WWW::Wassr で書きましたが、follow周りのAPI追加されたので、これも Net::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 @follower = map{$_->{login_id}} @{$wassr->followers_list()}; push @ignore_list,@friends; for my $user (uniq(@follower)){ if( all{ $user ne $_ } @ignore_list){ #warn "I follow $user"; $wassr->follow($user); } }