Shell Programming and Scripting

#! /usr/bin/perl

use Expect;

my $script = "ssh -x -l root IPADDRESS ls";

my $command = Expect->spawn($script);

my $pid = $command->pid();
my $password = "password";

$command->log_stdout(1);

my $timeout=7200;
while (
$command->expect($timeout,
                -re => 'want to continue connecting',
                -re => 'password:',
                -re => 'Secure connection to \S+ refused',
                -re => '^OKc',
             ) ){
        $command->clear_accum();
    if( not defined($command->exp_match_number) ){
                        print "Error: output not expected, aborting connection\n";
                        #print "#### String received:\n";
                        print $command->exp_before, "\n";
                        $command->hard_close;
                        $retval = 1;
                        print "Retval ->$retval<-\n";
                        return $retval;
                }

                if( $command->exp_match_number == 1 ){
                        # The authentication was not working, tell ssh "yes"
                        # we want to connect
                        print $command "yes\r";
                        next;
                }
                elsif( $command->exp_match_number == 2 ){
                        # Looking for password
                        print $command "$password\r";
                        next;
                }
                elsif( $command->exp_match_number == 3 ){
            print $command->exp_before, "\n";
                        $retval = 0;
                        last;
                }
                elsif( $command->exp_match_number == 4 ){
                        last;
                }
}
$exp_error = $command->exp_error();

if ( defined ($exp_error) ){
        print "Exp Error:$exp_error:\n";
}

$command->expect($timeout,
                -re => 'want to continue connecting',
                -re => 'password:',
                -re => 'Secure connection to \S+ refused',
                -re => '^OKc',
             ) )

#!/usr/bin/expect

set timeout 3

if {[llength $argv] == 0} {
  puts "usage: automate_ssh.sh <username> <password> <ip> [command]"
  exit 1
}

set command [lindex $argv 3]
set ip [lindex $argv 2]
set password [lindex $argv 1]
set username [lindex $argv 0]

spawn ssh $username@$ip $command

expect "(yes/no)?" {
send "yes\r"
}

expect "password:" {
send "$password\r"
}

interact