Telnets sur un équipement réseaux

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:

---

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

euh je suis pas un expert je débute tout juste mais essaye ca

Code:

---

1 2	my @output = $telnet->send('show cdp neighbors'); print @output;

---

au lieu de :

Code:

---

1 2 3

$telnet->print('show cdp neighbors'); $output = $telnet->waitfor('/#$/i'); print $output;

---

Merci , Mais ça n'a rien retourné comme résultat :(

peut être :

Code:

---

1 2 3

$telnet->print('show cdp neighbors'); my @output = $telnet->waitfor('/#$/i'); print @output;

---

et non pas :

Code:

---

1 2 3

$telnet->print('show cdp neighbors'); $output = $telnet->waitfor('/#$/i'); print $output;

---

mais j'y vais à taton xD je ne suis sur de rien

Code:

---

1 2	my @output = $telnet->send('show cdp neighbors'); print @output;

---

Me retourne 18 comme resultat

et ça maaarche ! Great .
Merci beaucoup

8-)

Citation:

---

Envoyé par tissam89

et ça maaarche ! Great .
Merci beaucoup

---

OK ça marche mais moi aussi j'ai 18 comme résultat q"a tu fais entre temps pour avoir la bonne réponse ?

OK j'ai trouvé
le 18 corespond a la longueur du message 'show cdp neighbors'

c'est pas un "send" qu'il faut utilisé mais un "print"

$telnet ->print('show cdp neighbors');
my @output = $telnet ->waitfor('/#$/i');
print $output; foreach my $p(@output){
print "$p\n";
}