windows - 使用 Net::SSH2 Perl 模块从 HP Switch 检索输出

Question

我正在尝试使用 Net::SSH2 Perl 模块(Windows 操作系统)通过 SSH 连接到 HP Switch。该脚本能够连接到设备并进行身份验证，但未检索到输出。我得到空白输出。

我已经尝试过使用 Net::SSH2 shell 和 exec 两者，但直到现在都没有运气。还尝试了 Net::SSH::Any，仍然没有结果。

HP 开关型号:HP 5900 - 7.1.045

代码

use strict;
use Net::SSH2;

my $ssh = Net::SSH2->new();

$ssh->connect('xx.xx.xx.xx');

$ssh->auth(username => 'xxxxx', password => 'xxxxxx');

my  $channel = $ssh->channel() or die 'Error creating channel';

$channel->blocking(0);

$channel->shell();

print $channel "display supervlan\n";       

sleep(5);      

 while(<$channel>)
   {
      print $_;
   }

$channel->close(); 

$ssh->disconnect();

有人可以帮忙吗

Answer 1

Net::SSH::Any可以使用任何可用的后端 ssh 模块(如果可用，在 windows 下使用 Net::SSH2)

use Net::SSH::Any;

my $ssh = Net::SSH::Any->new(
    "127.0.0.1",
    port => "22",
    user => "xx",
    password => "xx",
    strict_host_key_checking =>0
);
$ssh->error and die $ssh->error;

my ($out, $err) = $ssh->capture2("ls -l /");
print $out;