发送cmd（）进行交换时，Perl Net :: SSH2 :: Cisco读取超时

Question

基本上，我有尝试使用Net::SSH2::Cisco访问的Cisco和Dell交换机，但收到一个奇怪的超时错误。这是正在运行的代码：

     $swConn = Net::SSH2::Cisco->new(Host => "$switchname.something", Prompt =>  '/' . $switch .'#/') or push(@skipFailedSwitches, $switch);

##############################################################################
# Changes for Cisco Nexus 5020 Switch start here
#
# Included the code for varying the password depending on switch
##############################################################################


    $password = #mypassword;


  print "logging into $switchname.something  with username $username and password $password \n"; #SBW

  if (not $swConn->login($username, $password)){
    push(@skipFailedSwitches, $switch);
    next;
  }
  #$swConn->login(Password => #mypassword);
#$fh = $swConn->input_log();
##############################################################################
# Changes for Cisco Nexus 5020 Switch end here
#
##############################################################################
$swConn->cmd('terminal length 0') or push(@skipFailedSwitches, $switch);
my @statusOut = $swConn->cmd('show interface status') or push(@skipFailedSwitches, $switch);

这给了我

  在./etherShine.pl第172行读取时

超时

第172行是

$swConn->cmd('terminal length 0') or push(@skipFailedSwitches, $switch);