Perl Net :: Telnet不同的凭证

Question

我正在尝试使用脚本登录多个设备。很少有设备接受其他一些凭证，很少有人接受别的东西。

准备好的脚本来判断第一个凭据是否被接受而不是尝试其他凭证。

这是代码：

use Net::Telnet;
use warnings;

my @op="";

my $session = new Net::Telnet (Timeout => 10,Input_log =>\*STDOUT,Errmode=>   'return');
$session->open('172.16.76.159');


my $code1 = q/
$session->login('gmahesh','abcd');
/;

my $result1 = eval($code1);


unless ($result1){

my $code2 = q/
$session->login('rjil','xyz');

/;
}

$session->cmd('term len 0');
@op=$session->cmd('sh isis neighbor');

现在，路由器（172.16.76.159）配置了第二个凭证（rjil one），但登录输出甚至没有尝试此凭证。

用户访问验证

 Username: gmahesh
 Password:

 % Authentication failed

 Username: term len 0   <<< It is not trying rjil username
 Password: