perl下批量修改服务器密码的脚本

由于管理的服务器比较多，考虑到手动批量修改服务器密码比较麻烦，而且很容易输入错误，所以就写了简单的脚本，经过测试，本地环境可以稳定运行，程序中肯定有不足的地方，希望高手们指点，我们共同学习，共同进步。

#!/usr/bin/perl

use strict;
use warnings;
use Net::SSH::Expect;

my $user          = 'aaa';
my $pass          = '123456';
my $root_pass     = 'abcdef';
my $new_user_pass = '654321';
my $port          = '22';

my $file = '/home/aaa/iplist';
open FILE, "< $file" or die "can't open file $file ($!)";

while (<FILE>) {
    print $_;
    &ssh_test( "$_", "$port", "$user", "$pass" );
}

sub ssh_test() {
    my ( $host, $port, $user, $pass ) = @_;
    my $ssh = Net::SSH::Expect->new(
        host        => $host,
        port        => $port,
        password    => $pass,
        user        => $user,
        no_terminal => 0,
        raw_pty     => 1,
        timeout     => 6,
    );

    open FH, ">> /home/aaa/log_$host" or die $!;

    print FH "-" x 80, "\n";
    my $start_time = localtime;
    print FH "start \tat $start_time\n";

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

    $ssh->waitfor( '\(yes\/no\)\?$', 6 );
    $ssh->send("yes\n");
    $ssh->waitfor( 'password:\s*$/', 6 );
    $ssh->send("$pass");

    $ssh->send("su - root");
    $ssh->waitfor( 'Password:\s*$', 6 );
    $ssh->send("$root_pass");
    $ssh->waitfor( '#\s*', 6 );

    print FH "root login ok. \n";

    $ssh->send("passwd $user");

    $ssh->waitfor( 'password:\s*$', 6 );
    $ssh->send("$new_user_pass");

    $ssh->waitfor( 'password:\s*$', 6 );
    $ssh->send("$new_user_pass");
    $ssh->waitfor( '#\s*', 6 );

    my $ls = $ssh->exec("id");
    print FH "$ls\n";
    print FH "chang password ok!!!!!!!\n";

    my $end_time = localtime;
    print FH "end \tat $end_time\n";

    $ssh->close();

    close FH;

    print "-" x 30, "\n";
}

不错蛮有意思的脚本

这些 $user, $pass 之类能通过命令行选项传入，或者通过配置文件读取就好了

命令行解析可以用 Getopt::Long, 配置文件解析可以用 Config::General 或 Config::Any

是的，有道理，下来试试。

my $start_time = localtime;
print FH "start \tat $start_time\n";
可以改成一句，省个临时变量。呵呵
print FH "start \tat ${\(scalar localtime() ) }\n";

是的 ，我的做法显得比较冗余，没有发挥perl的特点，谢谢，学习了！

而且我觉得，FH这个文件句柄可以放到循环外面来打开和关闭，当作参数传进子函数，这样省的每次循环都要打开和关闭句柄，很没效率的说。

filehandle 还是不要用 bareword 了，用 scalar variable 吧

楼上大哥，能否说的详细点

有点道理