Net::Telnetでタイムアウト時間が短い
タイムアウト時間を確認するのに、以下のプログラムを実行したのですが、存在しないホストを指定してプログラムを実行しても3秒程度でタイムアウトしてしまいます。指定したタイムアウト時間(以下のプログラムでは100秒)待つにはどうすればよろしいでしょうか?
お願いします
OS:CentOS 5.1
perl: 5.8.8
Net-Telnet-3.03
===== プログラム =====
#!/usr/bin/perl
use Net::Telnet ();
my $result;
my $h = 'aa.bb.cc.dd';
my $u = 'my_name';
my $pass = 'my_pass';
my $p = '/[\$%#>] $/';
my $t = new Net::Telnet (Timeout => 100, Prompt => $p,
Errmode => "return");
$result = $t->open($h);
unless($result) {
print "open ng\n";
exit;
} else {
print "open ok\n";
$t->login($u, $pass);
print "login ok\n";
$t->print("exit");
}
お礼
TIMEOUT変数なんてあるんですね! 試してみます! ありがとうございます!