NeverBlog::Likk::Unexistable;

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

来るものは拒まないどころか、ストー○ング☆(マテ

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 の練習になっているのは秘密です。