1

私はこのフォーラムに参加したばかりで、Perl ライブラリの Net::Twitter:Stream に問題があります。このリンクNet::Twitter:Streamの例に従っています。

しかし、悪い応答コード (200 以外) を受け取ったときにその部分が欠落しており、アルゴリズムを停止する必要があります。では、この場合はどうすればよいのでしょうか。使いすぎてツイッターのブラックリスト入りするのが怖い…

私は以下のこのコードに基づいています：

use Net::Twitter::Stream;
Net::Twitter::Stream->new ( user => $username, pass => $password,
                          callback => \&got_tweet,
                          track => 'perl,tinychat,emacs',
                          follow => '27712481,14252288,972651' );
sub got_tweet {
     my ( $tweet, $json ) = @_;   # a hash containing the tweet
                                  # and the original json
     print "By: $tweet->{user}{screen_name}\n";
     print "Message: $tweet->{text}\n";
}
4

1 に答える 1

1

追加したいと思います。connection_closed_cb=>\&bad_responseこのstackoverflowの質問の最後の回答を参照してください。その機能が文書化されていない理由はわかりませんが、ソースコードを確認すれば利用できます。また、 CPANでそのモジュールを見つけることができませんでした。

于 2012-05-17T18:41:17.587 に答える