Tengo un script que consulta los routers que dispongo. Si el router contesta funciona correctamente, el problema viene si uno de los routers que intento interrogar no contesta ya que al no contestar produce un error que para la ejecución de todo el programa. ¿Cómo puedo introducir un control de errores que no provoque el corte total del programa?
Os pego el código:
Using perl Syntax Highlighting
sub conexion_Router () {
my $ipRouter = shift;
my $loginRouter = shift;
my $passRouter = shift;
my $comando = shift;
my $session = Net::Telnet::Cisco->new(Host => "$ipRouter" , Errmode=>'die',Timeout=>10) or die $session->close;
$session->login("$loginRouter", "$passRouter");
my @output = $session->cmd("$comando");
$session->close;
return (@output);
}
my $ipRouter = shift;
my $loginRouter = shift;
my $passRouter = shift;
my $comando = shift;
my $session = Net::Telnet::Cisco->new(Host => "$ipRouter" , Errmode=>'die',Timeout=>10) or die $session->close;
$session->login("$loginRouter", "$passRouter");
my @output = $session->cmd("$comando");
$session->close;
return (@output);
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
