Net::Telnet模块中errmode可以设置出错时的处理方式:
errmode:共有四个值,这里讨论两种,die和return
$mode = $obj->errmode; # 这种方式是获得当前的出错时的处理方式的值,默认是"die"
$premode = $obj->errmode($mode); #这种方式是定义一个新的出错时的处理方式的值,并返回之前的值
eg1:
use Net::Telnet;
my $telnet_obj = Net::Telnet->new();
my $result='';
$telnet_obj->errmode("return");
$telnet_obj->open('Host' => "ip1", 'Port' => "p1", );
print "error:$@\n";
$result = $telnet_obj->errmsg;
print "result:$result\n";
output:
error:
result:problem connecting to "172.16.1.20", port 1723: connect timed-out
此例中,使用的是return,这样在open遇到错误时不会在这里程序就失败返回,在这里可以看到出错时错误信息不是保存在$@,而是通过errmsg获取的。
eg2:
use Net::Telnet;
my $telnet_obj = Net::Telnet->new();
my $result='';
$telnet_obj->open('Host' => "172.16.1.20", 'Port' => "1723", );
print "error:$@\n";
$result = $telnet_obj->errmsg;
print "result:$result\n";
output:
problem connecting to "172.16.1.20", port 1723: connect timed-out at telnet.pl line 5
没有设置errmode时,默认是die,所以这里在执行open时遇到错误,直接程序就die掉了,不会继续执行。