Délai d'attente ne fonctionne pas sur Perl Net :: Telnet

Question

Le délai d'attente ne fonctionne pas sur le simple code ci-dessous:

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"; 

Lorsque je tente avec quelques hôtes, parfois je reçois 20 secondes ou plus. J'utilise ActiveState Perl, Win7.

Answer 1

Le protocole telnet implique divers échanges automatisés, que Net::Telnet gère en coulisses. open fait plus que simplement se connecter.

Utilisez cette option pour avoir une idée plus claire de ce qui se passe:

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