超时不在perl Net :: Telnet上工作

Question

超时不适用于以下简单代码：

Rollup_subset1 <- ffdfdply(subset1, split = (subset1$splitBy), 
 FUN=function(x){summaryBy(Precip_flag ~ date + x_1234, data=x,
                 FUN=sum, keep.names=FALSE) }, 
 trace=TRUE)

Rollup_subset1

       date   x_1234 Precip_flag.sum
  1 01/01/2010  100        7         
  2 01/01/2010  101        4         
  3 01/01/2010  102        6         
  4 01/01/2010  103        3 

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

Answer 1

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

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

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