如何使用Net :: SSH :: Perl与公钥？

Question

我正在尝试使用Net::SSH::Perl使用此代码使用公钥进行连接：

my $ssh = Net::SSH::Perl->new($host, debug=>1) || die ......

我把钥匙放在/root/.ssh/id_rsa和/root/.ssh/identity

似乎它并没有尝试使用公钥而是试图要求输入密码：

我得到了这个输出：

localhost: Sent key-exchange init (KEXINIT), wait response.
localhost: Algorithms, c->s: 3des-cbc hmac-sha1 none
localhost: Algorithms, s->c: 3des-cbc hmac-sha1 none
localhost: Entering Diffie-Hellman Group 1 key exchange.
localhost: Sent DH public key, waiting for reply.
localhost: Received host key, type 'ssh-dss'.
localhost: Host '10.212.1.201' is known and matches the host key.
localhost: Computing shared secret key.
localhost: Verifying server signature.
localhost: Waiting for NEWKEYS message.
localhost: Send NEWKEYS.
localhost: Enabling encryption/MAC/compression.
localhost: Sending request for user-authentication service.
localhost: Service accepted: ssh-userauth.
localhost: Trying empty user-authentication request.
localhost: Authentication methods that can continue: publickey,gssapi-with-mic,password.
localhost: Next method to try is publickey.
localhost: Next method to try is password.
localhost: Trying password authentication.
localhost: Will not query passphrase in batch mode.
localhost: Authentication methods that can continue: publickey,gssapi-with-mic,password.
localhost: Next method to try is publickey.
localhost: Next method to try is password.
localhost: Trying password authentication.
localhost: Will not query passphrase in batch mode.
localhost: Authentication methods that can continue: publickey,gssapi-with-mic,password.
localhost: Next method to try is publickey.
localhost: Next method to try is password.
localhost: Trying password authentication.
localhost: Will not query passphrase in batch mode.
localhost: Authentication methods that can continue: publickey,gssapi-with-mic,password.
localhost: Next method to try is publickey.
localhost: Next method to try is password.

Answer 1

找到它：必须手动指定密钥文件位置：

@KEYFILE = ("/root/.ssh/id_rsa");
$ssh = Net::SSH::Perl->new($host, debug=>1, identity_files=>\@KEYFILE)