Не жадничайте, и да вам прибудет:
use Net::Twitter::Lite;
die "1st param - search 'term'\n" unless $ARGV[0];
die "2nd param - user 'login'\n" unless $ARGV[1];
die "3rd param - user 'pwd'\n" unless $ARGV[2];
my $nt = Net::Twitter::Lite->new(username => $ARGV[1], password => $ARGV[2]);
my $r = $nt->search($ARGV[0]);
for my $status ( @{$r->{results}} ) {
next if $status->{from_user} eq $ARGV[1];
my ($new_login, $new_id) = ($status->{from_user}, $status->{from_user_id});
print "Trying to follow: $login => $new_login ..";
if ($nt->friendship_exists($login, $new_login)) {
print "already following\n";
} else {
$nt->follow_new($new_id);
print "NOW following\n";
last;
};
}
|