Antes de nada, comentaros que soy algo novato y creo que estoy tratando con algo grande... xD pero la verdad, es que sí necesito algo en Perl, es todo relacionado con Net::Telnet y esos temas...
Trato de hacer un script que conecte (en un principio) a un host y lance un "show ip interface brief" y me guarde el resultado en un array (cada interfaz en una línea)
Using perl Syntax Highlighting
#!/usr/bin/perl
use Net::Telnet;
$host = 'a.b.c.d';
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die', Prompt => '/#/');
$telnet->open($host);
if ($telnet->waitfor(String => "Username:"))
{
$telnet->print ("user");
$telnet->waitfor(String => "Password:");
$telnet->print ("pass");
}
#$telnet->print (" ");
@nombre= $telnet->waitfor(String => "#");
$nemonico=$nombre[0];
$telnet->waitfor(String => "#");
$telnet->print ('show ip interface brief');
@showip = $telnet->waitfor(String => "#");
use Net::Telnet;
$host = 'a.b.c.d';
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die', Prompt => '/#/');
$telnet->open($host);
if ($telnet->waitfor(String => "Username:"))
{
$telnet->print ("user");
$telnet->waitfor(String => "Password:");
$telnet->print ("pass");
}
#$telnet->print (" ");
@nombre= $telnet->waitfor(String => "#");
$nemonico=$nombre[0];
$telnet->waitfor(String => "#");
$telnet->print ('show ip interface brief');
@showip = $telnet->waitfor(String => "#");
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Esto debería hacerlo en teoría, ¿no? Me sale este error:
- Código: Seleccionar todo
pattern match timed-out at ./prueba.pl line 19
Otra cosa, ¿cómo podría hacer para que se mostrará TODO por pantalla (o que lo guarde en un fichero)? por que así es más fácil de ver dónde falla o por qué no lanza algún comando y tal ¿sabéis?
Gracias de antemano