ssh perl

#!/usr/bin/perl

use Expect;

$Expect::Log_Stdout = 1;

 

$ENV{TERM} = "vt100";

my $host = "192.168.16.33";

my $pass = "123456";

my $exp = Expect->new;

$exp = Expect->spawn("ssh -l root $host -oUserKnownHostsFile=/dev/null -oStrictHostKeyChecking=no");

$exp->log_file("output.log", "w");

$exp->expect(2,[

                    qr/password:/i,

                    sub {

                            my $self = shift ;

                            $self->send("$pass\n");

                            exp_continue;

 

                        }

                ],

                [

                    'connecting (yes/no)',  

                    sub {

                            my $self = shift ;

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

                         }

                ]

            );

#$exp->interact() if ($exp->expect(undef,'#'));

$exp->send("uptime\n") if ($exp->expect(undef,'#'));

$exp->send("exit\n") if ($exp->expect(undef,'#'));

$exp->log_file(undef);