Net::SSH::Expect SSHAuthenticationError Login timed out.

Mr-Summer

错误信息：SSHAuthenticationError Login timed out. The input stream currently has the contents bellow:  at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 828
代码

1. #!/usr/bin/env perl
   
2. use Net::SSH::Expect;
   
3. use strict;
   
4. 
   
5. my $i;
   
6. my $command=$ARGV[1];
   
7. for($i=0;$i<$ARGV[0];$i++){
   
8.         my $ip=$ARGV[$i+2];
   
9.         print $ip;
   
10.         my $ssh=Net::SSH::Expect->new(
    
11.                 host => $ip,
    
12.                 password => '******',
    
13.                 user => 'root',
    
14.                 raw_pty => 1
    
15.         );
    
16. $ssh->login();
    
17. #if ($login_output !~ /Weclome/){
    
18. #       die "Login has failed.Login output was $login_output";
    
19. #}
    
20.         my $job=$ssh->exec($command);
    
21.         print ($job);
    
22.         $ssh->close();
    
23. }
    

复制代码

$./ssh.pl 2 "ls -l /" "node1" "node2"

Mr-Summer

这个问题是解决了，是他们在给node间的ssh登入配置了互信，所以用without password的方式就可以了。


我还有个问题，想打包这个小程序是不是只能把(Net::SSH::Expect.pm,Expect 1-12.pm,IO::Tty.pm三个模块和ssh.pl放在同一文件夹中，在require),有更方便的模块或者方法不？

Mr-Summer

新问题：thread failed to start: SSHConnectionAborted 。
是不是net::ssh::expect内部就是开了个进程，所以多线程执行net::ssh::expect->exec()就会报错？

magnet2008

回复 2# Mr-Summer


    哥们，什么意思？？怎么解决的？without？？能否解释一下。