perl ssh 여러 서버에 자동으로 로그인하고 종료 동작을 실행합니다

script 

 ， 。  

  
  
  
  

   
   
   
   
#!/usr/bin/perl -w 
   
   
   
   
use strict; 
   
   
   
   
use Net::SSH::Expect; 
   
   
   
   
 
   
   
   
   
open (AF, "host_list") or die "don't open host_list: $!
"; 
   
   
   
   
my @list; 
   
   
   
   
foreach (<AF>) { 
   
   
   
   
        chomp; 
   
   
   
   
        @list=split(/\s/); 
   
   
   
   
        SHUTDOWN("$list[0]","$list[1]","$list[2]","$list[3]"); 
   
   
   
   
}; 
   
   
   
   
close AF; 
   
   
   
   
 
   
   
   
   
sub SHUTDOWN { 
   
   
   
   
 
   
   
   
   
        my $host=shift; 
   
   
   
   
        my $user=shift; 
   
   
   
   
        my $password=shift; 
   
   
   
   
        my $wait=shift; 
   
   
   
   
        my $ssh=Net::SSH::Expect->new ( 
   
   
   
   
                host=>$host, 
   
   
   
   
                password=>$password, 
   
   
   
   
                user=>$user, 
   
   
   
   
                raw_pty=>1, 
   
   
   
   
                ); 
   
   
   
   
        $ssh->debug(0); 
   
   
   
   
 
   
   
   
   
        $ssh->run_ssh() or die "SSH process couldn't start: $!"; 
   
   
   
   
        sleep 3; 
   
   
   
   
if ($ssh->waitfor('\(yes\/no\)\?', 2)) { 
   
   
   
   
                $ssh->send("yes
"); 
   
   
   
   
        }; 
   
   
   
   
 
   
   
   
   
        $ssh->waitfor('password', 5); 
   
   
   
   
        $ssh->send("$password"); 
   
   
   
   
        $ssh->waitfor("$wait", 2); 
   
   
   
   
#$ssh->exec("stty raw -echo"); 
   
   
   
   
        my $cmd=$ssh->exec("init 0"); 
   
   
   
   
#       print "$cmd

"; 
   
   
   
   
        print "$host: --------------------------------------------------
"; 
   
   
   
   
        $ssh->close(); 
   
   
   
   
} 
  
  
  
  

host_list.txt  ：

ip            
-----------------------------
10.13.55.11 root 1234 gaia
10.13.55.10 root aaa- rdfs
10.13.55.30 root bbb- dns
10.13.55.12 root 1234 dns
10.13.55.17 root 1234 dotproject
10.13.55.19 root cccc ftp