Есть скрипт на PERL который ищет в твитере записи по определенному запросу.
"...
my $r = $mt->search({q=>'dreamfoot OR "football manager" OR "soccer manager"',since_id=>$conf[0],rpp=>100});
... "
вопрос: как после того как скрипт найдет необходимый пост оставить комментарий к этому посту, но тоесть "reply"?
Примечание:
#!/usr/bin/perl -w
use Net::Twitter;
use Net::Twitter::Search;
use Scalar::Util 'blessed';
use Data::Dumper;
my $twi = Net::Twitter->new(
traits => [qw/OAuth API::REST/],
consumer_key => ' ',
consumer_secret => ' ',
access_token => ' ',
access_token_secret => ' ',
);
my $path='/home/dreamfoot.net/cgi-bin/fd/adv/cron/';
my @conf=();
open (S,$path.'t_conf.txt') || die 'cant open';
@conf=<S>;
chomp @conf;
close(S);
$conf[0]=0 if ! $conf[0];
my $mt = Net::Twitter::Search->new;
#
my $r = $mt->search({q=>'dreamfoot OR "football manager" OR "soccer manager"',since_id=>$conf[0],rpp=>100});
my %targets=();
$targets{$_->{from_user_id}}=$_->{from_user} foreach @{$$r{results}};
my $reqs=0;
if (scalar(keys %targets)){
my %sended=();
open (F,$path.'t_requested.txt');
my @reqs=<F>;
chomp @reqs;
foreach (@reqs){$sended{$_}=''}
close(F);
foreach (keys %targets) {
if (! exists $sended{$_}) {
#create friend;
print "$_ $targets{$_}\n";
eval {$twi->create_friend($targets{$_})};
$reqs++;
open (S,'>>'.$path.'t_requested.txt') || die 'cant open';
print S $_."\n";
close(S);
if ($reqs>10000){$$r{max_id}=0;last;}
}
}
}
open (S,'>'.$path.'t_conf.txt') || die 'cant open';
print S $$r{max_id}."\n";
close(S);
# print Dumper $r;
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.