perl批量更改服务器密码

#!/usr/bin/perl

use strict;

use warnings;

use Net::SSH::Expect;

use String::MkPasswd qw(mkpasswd);

my $user = "user";

my $pass = 123456;

my $root_pass = 123456;

my $new_user_pass = mkpasswd(-length => 15, -minnum => 3, -minlower => 3 , -minupper => 3, -minspecial => 3);

my $port = 22;

open (FILE, "</var/bak/test/iplist") or die "can't open file: $!\n";

while (<FILE>) {

print;

&ssh_host( "$_", "$port", "$user", "$pass" );

}

close(FILE);

sub ssh_host() {

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 => 5,

);

open (FH, ">> /var/bak/test/log_$host") or die "can't open file: $!\n";

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: $!\n";

$ssh->waitfor( '\(yes\/no\)\?$', 5 );

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

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

$ssh->send("$pass");

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

$ssh->waitfor( 'Password:\s*$', 5 );

$ssh->send("$root_pass");

$ssh->waitfor( '#\s*', 5 );

print FH "root login ok. \n";

$ssh->send("passwd");

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

$ssh->send("$new_user_pass");

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

$ssh->send("$new_user_pass");

$ssh->waitfor( '#\s*', 5 );

my $ls = $ssh->exec("id");

print FH "$ls\n";

print FH "chang password ok!!!!!!!\n";

print FH "$new_user_pass\n";

my $end_time = localtime;

print FH "end \tat $end_time\n";

$ssh->close();

close FH;

print "-" x 80, "\n";

}