perl - Net::OpenSSH 中的交互模式

Question

我是 perl 的初学者，正在尝试编写一个使用 Net::OpenSSH 在给定主机上运行命令的脚本。我如何在 Net::OpenSSH 中进行交互模式验证，类似于我们在 Net:SSH::Perl 中的操作。 Net:SSH::Perl 有一个交互式标志，如果设置为 true 则接收密码，否则使用公钥 auth。以下是我在 Net::SSH::Perl 中的 ssh 对象，我想在 Net::OpenSSH 中复制它:

 $ssh = Net::SSH::Perl->new($host,
                      debug          => $debug,
                      port           => $port,
                      interactive    => $imode,
                      identity_files => [ @keys ],
                      );

此外，Net::SSH::Perl 可以接收一组 key ，而 Net::OpenSSH 只能接收一个。我该如何解决这个问题？

Answer 1

Net::OpenSSH默认情况下已经在交互模式下运行，让底层 ssh 进程在所有其他身份验证方法失败时要求输入密码(您必须请求 batch_mode 才能禁用它)。

您可以通过 master_opts 传递多个 key 构造函数参数:

my $ssh = Net::OpenSSH->new($host, ...
                            master_opts => [map { -i => $_ } @keys]);

您还可以在 GitHub bug-tracker 中创建功能请求我最终会添加对接受多个 key 而不使用 master_opts hack 的支持。