응답 코드 Net :: Twitter : Stream

Question

저는이 포럼에서 새롭고 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"; 
} 

Answer 1

난 당신이 connection_closed_cb=>\&bad_response을 추가 할 것 같아요 참조 이 stackoverflow 질문 마지막 대답. 그 능력이 문서화되지 않은 이유는 모르겠지만 소스 코드를 확인하면 사용할 수 있습니다. 또한 해당 모듈을 CPAN에 찾을 수 없습니다.