自動フォロー返し
Net::Twitter::Liteも慣れてきたかもしれないというわけで
自動フォロー返しを実装
&my_follow($nt); # my $nt = Net::Twitter::Lite->new(...); sub my_follow{ my $nt = $_[0]; my $flw; eval{ $flw = $nt->followers({count=>20}); # 20人取得 }; foreach my $list(@{$flw}){ eval{ #print "$list->{id}, $list->{screen_name}\n"; # printデバック $nt->create_friend($list->{id}); # これでフォロー }; } }
これだと既にフォローしている人にもリクエストを送るので無駄な事をしているかもしれないけど
if($nt->friends_ids($list->{id})){}
とかつけたら無駄にAPIを浪費するだけだしなぁ…