perl6 io::socket::inet 如何设置套接字超时？
perl6 io::socket::inet how to set timeout for socket?
my $c = IO::Socket::INET.new(:host<localhost>, :port(80));
$c.print: 'Test';
say $c.recv;
如何设置 IO::Socket::INET 接收超时？
请参阅 Promise.anyof doc 中的超时示例。
（另请参阅 Concurrent::Progress 了解更一般的跟踪进度情况。）
my $c = IO::Socket::INET.new(:host<localhost>, :port(80));
$c.print: 'Test';
say $c.recv;
如何设置 IO::Socket::INET 接收超时？
请参阅 Promise.anyof doc 中的超时示例。
（另请参阅 Concurrent::Progress 了解更一般的跟踪进度情况。）