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

  在生成环境中一般运维须要执行很是多的重复命令，一台可能还好 多台就杯具了。尤为有时候要批量去更新多台服务器的文件，或者是删除。

   一个好运维都是懒惰的，因此本身写了个perl脚本能够远程去执行shell命令，很灵活。2个配置文件，一个管理服务器信息，一个放所须要执行的命令。

code:

#!/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(<FH>){
        @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(<F1>){


                                                my @command=split/\n/,$_;
                                                print "$command[0]-->    ";
                                                $ssh->exec("$command[0]");

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


                                                }
                                                close F1;
                                                $ssh->close();

下面是2个文件内容。

[root@nagios script]# cat ip_list.txt
192.168.2.101    22    mcshell     psswd    server1
192.168.2.102    22    mcshell     psswd    server2
192.168.2.103    22    mcshell     psswd    server3
[root@nagios script]# cat command_txt.txt
touch /home/mcshell/file1
touch /home/mcshell/file2

 

执行结果：

固然我这里为了测试方便，用了写的比较简单，你们也能够发挥想象，直接把复杂的shell或者perl密令直接放在command_txt.txt中。一样能够批量处理