超时在 perl Net::Telnet 上不起作用

Posted 2023-03-16

【中文标题】超时在 perl Net::Telnet 上不起作用

【英文标题】：Timeout not working on perl Net::Telnet

【发布时间】：2017-02-26 20:24:26

【问题描述】：

Timeout 不适用于下面的简单代码：

my $t=time;
my $tel = new Net::Telnet (Timeout => 2);
eval
    $tel->open(Host=>$host,Port=>$port) || print "Not OK";

my $interval=time-$t;
print "Seconds: $interval";

当我尝试使用一些主机时，有时我会得到 20 秒或更长时间。 我正在使用 ActiveState Perl，Win7。

【参考方案1】：

telnet 协议涉及各种自动交换，Net::Telnet 在幕后处理。 open 不仅仅是连接。

使用它可以更清楚地了解正在发生的事情：

my $tel = new Net::Telnet (Timeout => 2, Dump_Log => $filename);

【讨论】：

谢谢。我想测试一些代理服务器，我需要最快的方法来查看 host:port 是否响应。