Problem connect ssh -cisco [Fermé]

Signaler
Messages postés
69
Date d'inscription
jeudi 4 septembre 2014
Statut
Membre
Dernière intervention
18 mars 2016
-
Bonjour,
je fais un script perl qui a pour but de se connecter à mon switch via ssh et de récupérer la configuration , en premier lieu , j'ai lui passer le login , le pass et l'ip , puis de dois exécuter la commande enable pour passer de mode user vers le mode privilégié en tapant un mot de passe secondaire . mais j'obtiens aucune résultat , qq m'aide svp , j'ai cassé la tête depuis trois 3 jours :(

use Net::OpenSSH;
#use Net::SSH::Perl;
use strict;
use warnings;
use Expect;
 my $password = 'admin';
my $ip = '10.65.25.125';
my $username='admin';
#my $fich = '/root/Desktop/karim';
 my $ssh = Net::OpenSSH->new("$username:$password\@$ip", timeout => 30) ;
   $ssh->error and die "unable to connect to remote host: ". $ssh->error;
   my $enable_passwd = "admin";
 

 
       $ssh->open2pty("enable");
    sleep(2);

#    $ssh->exec("terminal length 0");
        $ssh->open2pty('admin');
  

  my ($pty, $pid) = $ssh->open2pty("show arp") or die "unable to run remote command show  arp";
 my $expect = Expect->init($pty);
 $expect->raw_pty(1);
$expect->debug(2);
my $debug and $expect->log_stdout(1);

 while(<$pty>)
{ print "$. $_ "
  #$. $_->Load($fich);
 #my $a=print"$. $_ ";
 #print "$a";
  #rediriger_flux($fich);

}


        # closes the ssh connection
 #       $ssh->close();

voiçi lorsque j'ai fais un le débogage:
Connection to 10.65.25.125 closed by remote host.
2 Line has invalid autocommand "show arp" Closing handle id(4).
at /usr/local/share/perl5/Expect.pm line 1621, <GEN6> line 2.
Expect::hard_close(Expect=GLOB(0x16edc00)) called at /usr/local/share/perl5/Expect.pm line 1848
Expect::DESTROY(Expect=GLOB(0x16edc00)) called at b.pl line 0
eval {...} called at b.pl line 0
handle id(4) closed.