perl - 响应代码 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中找到该模块。