代码之家 › 专栏 › 技术社区 › Morinar

IO::获取响应时套接字超时

http-headers sockets perl

Morinar · 技术社区 · 16 年前

我正在尝试使用IO::Socket::INET连接到web服务(是的,我知道有很多更好的模块可以实现这一点,但我没有它们,也无法添加它们,所以请不要建议),但我正在超时(我想这就是它正在做的)等待响应。

$httpSock->print($content);

my @lines = $httpSock->getlines();
foreach my $line ( @lines ) {
    print $line;
}

看起来我的请求是立即发出的,然后它等待大约2分钟,然后返回响应。如果我修改代码以使用原始套接字 recv 而不是 getlines() ,阿拉巴马州:

$httpSock->recv($data, 1024);

我立即得到响应(尽管只有前1024个字符)。我做错什么了吗?我正在使用一个足够晚的IO::Socket版本 autoflush 默认情况下是启用的,但是显式地打开它似乎没有任何区别。我可能也可以继续从套接字读取,直到得到完整的响应,但这肯定比使用 getlines() 或 <$httpSock>

提前谢谢。

2 回复 | 直到 16 年前

user180804 user180804 16 年前

我在重新创建您发布的代码片段时遇到问题。以下是我测试的代码:

use strict;
use warnings;
use IO::Socket;

my $httpSock = new IO::Socket::INET(
    PeerAddr => 'www.google.com',
    PeerPort => '80',
    Proto    => 'tcp',
);

my $content = "HEAD / HTTP/1.0\r\nHost: www.google.com\r\n\r\n";

$httpSock->print($content);
my @lines = $httpSock->getlines();
foreach my $line (@lines) {
    print $line;
}

$ time ./1.pl
HTTP/1.0 200 OK
-snip-  

real    0m0.084s
user    0m0.025s
sys 0m0.007s

FModa3 16 年前

$httpSock->recv($buf, 1024);
$message = "";
while (length($buf) > 0) {
    $message .= $buf;
    $httpSock->recv($buf, 1024, MSG_DONTWAIT);
}
print $message;

我想知道google的例子是否有效,因为google.com在响应后正在关闭连接。

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

2 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

2 年前

nick · 向后交换文件名

2 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

2 年前

con · 如何跳转到foreach迭代的特定点?

2 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

2 年前