Je souhaite faire un telnet sur un équipement réseaux, et ensuite executer la commande show cdp neighbors pour avoir la liste des voisins. J'ai un script pour cela, mais il me retourne le resultat 1 au lieu de la liste des interfaces. Pouvez vous m'aider à corriger cela svp ?
Voici mon script :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
!/usr/bin/perl
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,Errmode=>'die');
$telnet->open('10.10.10.10');
$telnet->waitfor('/Username: $/i');
$telnet->print('user');
$telnet->waitfor('/password: $/i');
$telnet->print('MDP');
#$telnet->waitfor('/router1#/i');
$telnet->waitfor('/#$/i');
$telnet->print('show cdp neighbors');
$output = $telnet->waitfor('/#$/i');
print $output;
Merci par avance pour votre aide