Je suis completement novice avec Perl mais j'utilise MRTG (sous XP) et j'ai
le besoin suivant:
Recuperer des stats sur un routeur non SNMP (Netgear RP114). Je sais le
faire par Telnet mais il me faut un script qui sache "poller" le routeur et
"parser" les infos pour MRTG. Je peux donner + d'infos (format + commandes)
si quelqu'un veut bien s'y pencher...
Voici mon script #=================================================================== > #!/usr/bin/perl -w use Net::Telnet; my $t= new Net::Telnet(); $t->open("10.0.0.1"); $t->waitfor('/Password/'); # chaine qui vous invite à entrer le password $t->print('password'); # entrée du password $t->waitfor('/Number/'); # mettez le prompt que vous obtenez $t->print('24'); # Menu 24 $t->waitfor('/Number/'); # mettez le prompt que vous obtenez $t->print('8'); # Menu 8 $t->waitfor('/Number/'); # mettez le prompt que vous obtenez $t->print('ip_ifconfig'); # ip ifconfig my @lines = $t->getlines([Timeout=>10]); print "@linesn"; # vous devez obtenir les lignes que vous avez # précisé dans votre mail
bad named parameter "ARRAY(0x1a5caec)" given to Net::Telnet::getlines() at telnet.pl line 14
-- YM
Sébastien Cottalorda wrote:
Voici mon script
#=================================================================== > #!/usr/bin/perl -w
use Net::Telnet;
my $t= new Net::Telnet();
$t->open("10.0.0.1");
$t->waitfor('/Password/'); # chaine qui vous invite à entrer le
password $t->print('password'); # entrée du password
$t->waitfor('/Number/'); # mettez le prompt que vous obtenez
$t->print('24'); # Menu 24
$t->waitfor('/Number/'); # mettez le prompt que vous obtenez
$t->print('8'); # Menu 8
$t->waitfor('/Number/'); # mettez le prompt que vous obtenez
$t->print('ip_ifconfig'); # ip ifconfig
my @lines = $t->getlines([Timeout=>10]);
print "@linesn"; # vous devez obtenir les lignes que vous avez
# précisé dans votre mail
Voici mon script #=================================================================== > #!/usr/bin/perl -w use Net::Telnet; my $t= new Net::Telnet(); $t->open("10.0.0.1"); $t->waitfor('/Password/'); # chaine qui vous invite à entrer le password $t->print('password'); # entrée du password $t->waitfor('/Number/'); # mettez le prompt que vous obtenez $t->print('24'); # Menu 24 $t->waitfor('/Number/'); # mettez le prompt que vous obtenez $t->print('8'); # Menu 8 $t->waitfor('/Number/'); # mettez le prompt que vous obtenez $t->print('ip_ifconfig'); # ip ifconfig my @lines = $t->getlines([Timeout=>10]); print "@linesn"; # vous devez obtenir les lignes que vous avez # précisé dans votre mail
