perl中Net::Telnet的errmode使用方法

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掉了，不会继续执行。