Perl Net:：Telnet不同的凭据

我正在尝试使用脚本登录到多个设备。很少有设备接受其他凭证，也很少有其他设备接受其他凭证

准备好脚本，以告知是否第一个凭据未被接受，而不是尝试了另一个凭据

以下是代码：

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:

用户名：gmahesh
密码：
%身份验证失败
用户名：term len 0