StreamingAPIを使用してTwitterクローラーを実行しました。Net:Twitter:Streamを使用してperlでプログラムされます。ツイートを少し取得していると思います。私は昨夜テレビシリーズのツイートを追跡するためにそれを残しました、そして私はたった30860のツイートを得ました。低い値だと思います。あなたはそれについてどう思いますか?私が使用できる他のperlライブラリはありますか?ここにコードの一部を入れて、何か問題がないか確認します。
みんなありがとう
チアゴ
use JSON;
use Solr;
use Net::Twitter::Stream;
sub coletar{
Net::Twitter::Stream->new ( user => $username, pass => $password,
callback => \&got_tweet,
connection_closed_cb => \&connection_closed,
track => $track); #$track has my string search;
sub connection_closed {
if ($count==0){
sleep 10;
}
elsif($count==1){
sleep 20;
}
else{
sleep 240;
}
$count++;
warn "Connection to Twitter closed";
coletar(); #Recomeçando o download de tweets.
}
sub got_tweet {
$cont=0;
my ( $tweet, $json ) = @_;
# Here I save the tweet in my NoSQL database...
}
}
coletar;