1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| #!/usr/bin/perl
use strict;
use warnings;
use Expect;
use Net::OpenSSH;
use IO::Pty;
use IO::Stty;
my $host_r="10.193.130.7";
my $user_r="PRCORSAUV01";
my $hostname="10.217.112.52";
my ($login,$password)=("admin","admin");
my $exp = new Expect;
my $ssh = Net::OpenSSH->new(${user_r}.'@'.${host_r}, ssh_cmd=> '/export/home/sarcor/bin/ssh' );
$ssh->error and
die "Couldn't establish SSH connection: ". $ssh->error;
my $command = 'ssh '.${login}.'@'.${hostname};
$exp->spawn($command) or die "Cannot spawn $command: $!\n";
$exp->log_user(0);
$exp->log_file("filename.txt");
my $patidx = $exp->expect(5, '*?assword:');
$exp->send("$password\r");
$patidx = $exp->expect(5, '#');
$exp->send("term len 0\r");
$patidx = $exp->expect(5, '#');
$exp->send("show running-config\r");
$exp->log_user(1);
#====> je veux récupérer ce qui va s'afficher à partir de là.
$patidx = $exp->expect(5, '#');
$exp->send("exit\r"); |
Partager