多线程中的超时，如Socket超时

最新推荐文章于 2024-02-28 10:40:52 发布

转载最新推荐文章于 2024-02-28 10:40:52 发布 · 169 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/perl6/p/7447461.html

本文通过Perl脚本示例展示了如何使用IO::Socket模块进行网络连接，并监听指定端口的状态。脚本中设置了超时机制，同时利用了线程来处理网络请求。此示例适用于了解Perl在网络编程中的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

my $timeout = 5;
for 21,22,80,3306 ->$port {
print "-->$port\r";
#say "\r";
await Promise.anyof(
    Promise.in($timeout),
    start {
      #sleep 6;
        my $c = IO::Socket::INET.new(:host<localhost>, :port($port));
        say "-->$port [Open]" if so $c;
        my $p = $c.recv();
        say $p;
    },
);
}