Bonjour,
Je suis novice en Perl, et cela fait 3 jours que je suis sur le même problème, à savoir :
J'ai créé un script en perl de connexion Telnet à un équipement réseau, qui exécute une commande.
La réponse de cette commande telnet est stockée dans une variable.
Maintenant, je veux récupérer la fin de cette réponse, à savoir un nombre et je lutte depuis entre les split etc...
Ci-joint le code :
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>5, Errmode=>'die', Prompt=> '/>/');
$telnet->open('ip address');
$telnet->waitfor('/login : $/i');
$telnet->print('toto');
$telnet->waitfor('/password : $/i');
$telnet->print('titi');
$telnet->waitfor('prompt $/i');
@output = $telnet->cmd("show mac-address-table count"); # Commande exécutée sur le device
$telnet->close;
$result1 = @output[-2]; # Récupération de l'avant dernière ligne contenant le nombre de Mac @
print $result1;
Cela donne :
Total MAC Address In Use = 21
Finalement, je voudrais que mon scipt me renvoie 21 uniquement,
et non pas Total MAC Address In Use = 21
Please HELP !
Merci l'ami :)
C'est bon !
Depuis le temps que je cherche ! J'ai pourtant parcouru un grand nombre de forums, sites de cours de perl etc...
Mais cela restait assez vague pour moi.
Merci encore