Question

我正在使用perl 5.16.2，OAuth :: Lite（1.31）编写Web服务。服务器是CentOS版本6.3（最终版），2.6.32-279.14.1.el6.x86_64。

问题是当我为twitter oauth请求令牌时，OAuth::Lite get_request_token阻止服务器执行30秒，有时会返回正确的响应，有时会超时浏览器请求。

重现问题的最小代码如下，

use OAuth::Lite::Consumer;                                                            

my $consumer = OAuth::Lite::Consumer->new(                                      
  request_token_path => 'https://api.twitter.com/oauth/request_token',          
  consumer_key       => '[CONSUMER KEY]',                               
  consumer_secret    => '[CONSUMER SECRET]',            
  callback_url       => '[CALLBACK]',                    
);                                                                              

my $rtoken = $consumer->get_request_token();

将在30秒后返回。

我读了代码，并在Net :: HTTP 6.05的Net :: HTTP :: Methods第259-260行中找出方法my_readline

die "read timeout" unless $self->can_read;
my $n = $self->sysread($_, 1024, length);

阻止请求。 my_readline尝试阅读的标题是

HTTP/1.1 200 OK
Date: Fri, 16 Nov 2012 16:16:39 GMT
Status: 200 OK
X-MID: 266cca0268c8eb68e76eedda256c77829ea9b22e
X-Transaction: 784ff126dfead993
Tag: "382e5356bb65e976f6b117bacdfa05e4"
Cache-Control: no-cache, no-store, must-revalidate, pre-check=0, post-check=0
X-Runtime: 0.02892
Pragma: no-cache
Expires: Tue, 31 Mar 1981 05:00:00 GMT
X-Frame-Options: SAMEORIGIN
Content-Type: text/html; charset=utf-8
Last-Modified: Fri, 16 Nov 2012 16:16:39 GMT
Set-Cookie: k=10.36.55.109.1353082599368934; path=/; expires=Fri, 23-Nov-12 16:16:39 GMT; domain=.twitter.com
Set-Cookie: guest_id=v1%3A135308259937793094; domain=.twitter.com; path=/; expires=Mon, 17-Nov-2014 04:16:39 GMT
Set-Cookie: _twitter_sess=BAh7CCIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNo%250ASGFzaHsABjoKQHVzZWR7ADoHaWQiJTJlZGJiN2MyOTMyNmM0OGY0MjJmZmY0%250AMTU3YzllYTI0Og9jcmVhdGVkX2F0bCsI0vcBCjsB--21ab24a6dd6596b1dcc78651c0b6a4836b320621; domain=.twitter.com; path=/; HttpOnly
Vary: Accept-Encoding
Content-Encoding: gzip
Content-Length: 150
Server: tfe

此标头超过1024个字符。所以我将1024更改为2048，它开始工作正常...... 我想弄清楚这个问题的原因。

任何帮助表示赞赏。谢谢。

Answer 1

多年前，我对LWP :: Protocol :: https（也被OAuth :: Lite使用）的体验很糟糕，特别是在CentOS上。长话短说：尝试在该平台上编译Net :: SSLeay太沮丧导致我用WWW :: Curl替换LWP :: UserAgent。哪个编译得很好。并且非常适合这个简单的应用程序。但是，OAuth :: Lite与LWP紧密耦合，重新实现所有内容毫无意义。还有另一种方法可以将libcurl与基于LWP的代码一起使用： http://blogs.perl.org/users/stas/2012/11/libcurl-as-lwp-backend-or-all-your-protocol-are-belong-to-us.html

OAuth :: Lite ::我访问twitter时的消费者超时

1 个答案: