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.
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 my @output_mac = $session->cmd('show mac-address-table dynamic'); print @output_mac; print MACOUT @output_mac; close MACOUT;
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
Partager