Net::OpenSSH 中的交互模式

Question

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

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

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

Answer 1

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

您可以通过 master_opts 构造函数参数传递多个键：

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

您还可以在 GitHub bug-tracker 中创建功能请求，我最终将添加对接受多个密钥的支持，而无需使用 master_opts hack。