Foro - Perl en Español

Publicado: **2011-02-14 23:03 @002**

¿Qué tal? Necesito entrar a un router Cisco 1841 vía telnet u otra para habilitar y deshabilitar interfaces.

Publicado: **2011-02-15 06:03 @293**

Bienvenido a los foros de Perl en Español, peligro13.

En algunos hilos hemos discutido ese tema. Ejemplo.

Usa el menú Buscar, y busca por la palabra "Cisco".

En CPAN también tienes unos cuántos módulos sobre el tema.

Publicado: **2011-02-15 12:37 @567**

Te dejo un ejemplo para guardar la versión del dispositivo, en un archivo externo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use Net::Telnet::Cisco;
use POSIX qw(strftime);
my $hora= strftime("%Y-%m-%d", localtime);
my $session = Net::Telnet::Cisco->new(Host => 1.1.1.1);
$session->login('user, 'password’);
my @output = $session->cmd('show version');
open (F,">> log-cisco.txt");
print F "---- $hora ----\n";
print F "@output";
print F "---- ----";
$session->close;
close (F);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Saludos.

Foro - Perl en Español

Entrar a router Cisco

Entrar a router Cisco

Re: Entrar a router Cisco

Re: Entrar a router Cisco