求使用net::ssh::perl 利用私鑰驗證腳本例子

andylan2010

今天研究了很久，net::ssh::perl模塊支持使用私鑰驗證，可是怎么也不能成功，希望有使用過的高手幫忙舉個簡單的例子就好。

lgq_101

做好key,使用net::ssh不是更方便

andylan2010

謝謝 提醒

iakuf

1. use Net::SSH::Perl;
   
2. use Net::SSH::Perl::Key::RSA;
   
3. my $ip      = '127.0.0.1';
   
4. my $port    = 22;
   
5. my $user = 'root';
   
6. my $ssh = new Net::SSH::Perl(
   
7.         $ip,
   
8.         port => $port,
   
9.         protocol => '2,1',
   
10.         debug => 1,
    
11.         identity_files => ["/root/.ssh/id_rsa"],
    
12.         options => [
    
13.             'BatchMode yes',
    
14.             'RSAAuthentication no',
    
15.             'PubkeyAuthentication no',
    
16.             'NumberOfPasswordPrompts 1',
    
17.             'ChallengeResponseAuthentication no',
    
18.             'PasswordAuthentication yes',
    
19.             'UserKnownHostsFile /dev/null',
    
20.         ],  
    
21.         );  
    
22. $ssh->login($user);

復(fù)制代碼

tulip0425

這么強,支持樓主，佩服