远程控制多台服务器,perl远程执行多台服务器shell命令

#!/usr/bin/perl

use strict;

use Net::SSH::Expect;

my @ssh_list;

my $ssh_txt='ip_list.txt';

my $command_txt='command_txt.txt';

open FH,$ssh_txt;

while(){

@ssh_list=split;

print "正在登陆".$ssh_list[0]."...\n";

&ssh_conn("$ssh_list[0]","$ssh_list[1]","$ssh_list[2]","$ssh_list[3]");

}

close    FH;

sub    ssh_conn(){

my($host,$port,$user,$pass) = @_;

my $ssh = Net::SSH::Expect->new(

host        =>            $host,

port        =>            $port,

user        =>            $user,

password                =>$pass,

no_terminal         =>0,

raw_pty =>1,

timeout =>            3,

);

$ssh->debug(0);

$ssh->run_ssh() or die "SSH process coundn't start:$!";

$ssh->waitfor( '\(yes\/no\)\?$', 1 ); #交互式修改密码，给予2秒的时间

$ssh->send("yes\n");

$ssh->waitfor( 'password:\s*$/', 1);

$ssh->send("$ssh_list[3]");

$ssh->send("su - root");

$ssh->waitfor( 'password:\s*$/', 1);

$ssh->send("$ssh_list[4]");

#$ssh->waitfor("#\s*",2);

open F1,$command_txt;

while(){

my @command=split/\n/,$_;

print "$command[0]-->    ";

$ssh->exec("$command[0]");

print "$ssh_list[0]命令执行完毕\n";

}

close F1;

$ssh->close();