如何在 Coro 中使用“Net::http”？

Question

卡在使用 Net::HTTP 当我创建一个 Net::HTTP 对象时，它使用“IO::Socket::IP”进行初始化。 如何在没有硬编码的情况下更改默认套接字？我想把它改成 IO::Socket::INET。

所以，如果我对套接字进行硬编码，它就可以工作。 但是当我尝试使用 Coro::LWP 并且 Coro::LWP 将 IO::Socket::INET 更改为 Coro::Socket 时出现错误：

状态读取失败：传输端点未在 perl5/lib/perl5/Net/HTTP/Methods.pm 第 282 行连接。

我需要更改套接字，因为 cpan 上的 Clickhouse 模块不支持异步请求。

这是无效的代码

use IO::Socket::INET qw( );
BEGIN { $Net::HTTP::SOCKET_CLASS = 'IO::Socket::INET'; };
use Coro::LWP;
my $s = Net::HTTP->new(Host => "www.perl.com") || die $@;
$s->write_request(GET => "/");
print $_ for ( $s->read_response_headers );

已修复！ 只需将 Coro::Socket 更改为 Coro::PatchSet::Socket

Answer 1

您不能将 IO::Socket::INET 或 IO::Socket::IP 与 Coro 一起使用。 Coro 是一个协作式多线程系统，所以它只与协作模块一起工作，而这些模块都不是 Coro 感知的。 （“工作”是指允许线程和异步操作进行。）

除其他外，Coro::LWP 还特别使 Net::HTTP 使用 Coro::LWP::Socket 而不是 IO::Socket::INET。您尝试让 Ne​​t::HTTP 使用 IO::Socket::IP 会适得其反。

您说您正在切换模块，因为 Clickhouse（我认为您的意思是 ClickHouse）不支持异步请求，但是将 IO::Socket::INET 替换为 IO::Socket::IP 并没有帮助完全没有。

你看过AnyEvent::ClickHouse吗？