Stdout cisco perl [Fermé]

Signaler
Messages postés
69
Date d'inscription
jeudi 4 septembre 2014
Statut
Membre
Dernière intervention
18 mars 2016
-
Bonjour,
Aidez moi svp , j'ai un script qui se connecte au mon switch , mais j'ai pas de output , je peux pas localiser mon problème



#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Net::SSH::Expect; 
  
my $ssh = Net::SSH::Expect->new( 
  host     => '192.65.25.36', 
  password => 'tunis', 
  user     => 'user%', 
  raw_pty  => 1 
);
my $enable_passwd = "admin%"; 
print "ssh1 $ssh\n";
my $login_output  = $ssh->login(); 
print "ssh2 $ssh\n";
$ssh->exec("terminal length 0");  
$ssh->send("enable"); 
print "ssh3 $ssh\n"; 
$ssh->waitfor( 'password:\s*\z', 1 ) or die "prompt 'password' not found after 1 second"; 
$ssh->send($enable_passwd); 
print "ssh4 $ssh\n";  
#my $ls = $ssh->exec("show vlan");
#
#print "$ls\n"; 
  
#Première façon de récupérer une sortie longue: 
$ssh->send("show vlan"); 
$ssh->exec("terminal length 24"); 
while ( my $line = $ssh->read_line() ) { 
  print "$line\n"; 
} 
  

print " finnnnnnnnn";
$ssh->close();