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

【问题标题】：Timeout not working on perl Net::Telnet超时在 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。

【问题讨论】：

标签： perl timeout telnet

【解决方案1】：

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

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

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

【讨论】：

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