Commande Switch Cisco

Bonjour tout le monde,

J'ai un soucis sur un script en perl qui a été effectué il y a longtemps par un ancien collègue. Il s'agissait de récupérer les adresses mac et interfaces des switchs Cisco. Or sur les nouveaux IOS les commandes ont changées et je dois donc mettre à jour mon script sans beaucoup de compétence en Perl.

Code:

---

1 2 3 4 5

my @output_mac = $session->cmd('show mac-address-table dynamic'); print @output_mac; print MACOUT @output_mac; close MACOUT;

---

Ce que je souhaite faire c'est si la commande "show mac-address-table" me renvoit une erreur : "% Invalid Input" d'envoyer une autre commande "show mac address" sans le tiret donc.

Par contre par performance je ne souhaite pas vérifier toutes les DATAs récupéré pendant la requête mais juste un retour d'erreur de la commande et je pense que Perl peut le faire mais je ne sais pas comment et je n'arrive pas à le trouver.

Je me demandais si quelqu'un avait une idée car je tourne en rond et en carré sur Internet pour avoir une solution.

Merci de votre aide :ccool:

As tu essayé ceci :

Code:

---

1 2 3 4 5 6 7

my @output_mac = $session->cmd('show mac-address-table dynamic'); if (@output_mac =~ /Invalid/) { my @output_mac = $session->cmd('show mac address table dynamic'); } print @output_mac; print MACOUT @output_mac; close MACOUT;

---

Salut Dubis,

je viens d'essayer mais en faite le problème est que la commande est inconnu donc l'équipement Cisco renvoi une erreur indiquant que la commande est inconnu mais le script reste bloqué et n'envoi pas la seconde commande.

Le script me répond cela :

Code:

---

1 2 3 4

Last command and router error: GSFRS4C-2960-016-EXTBKP#show mac-address-table dynamic ^ % Invalid input detected at '^' marker.

---

:cry:

Jejeb,

Il faudrait que tu nous passe le script pour voir ce qui ne va pas ..... D'apres ce que j'ai compris @output_mac n'est pas un resultat de commande mais une commande envoyée.... Sans le script complet impossible d'analyser.
@+