響應代碼Net :: Twitter：Stream

Question

我是新來的這個論壇，我遇到了perl庫Net :: Twitter：Stream的一些問題。我正在關注這個鏈接Net::Twitter:Stream中的示例。

但是，當我得到一個錯誤的響應代碼（200以外）時，它丟失了部分，我不得不停止我的算法。那麼，在這種情況下我能做些什麼呢？我怕這麼多的使用它，並進入Twitter的黑名單...

我立足在下面這段代碼：

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"; 
} 

Answer 1

我想你會希望添加connection_closed_cb=>\&bad_response，看這stackoverflow問題的最後答案。我不確定爲什麼這種能力沒有記錄在案，但是如果你檢查了源代碼，它是可用的。我也無法在CPAN中找到該模塊。