Tomar el output de un switch cisco con Perl
019 April 2008 at 3:58 Filed in:Uncategorized
Les dejo un pequeño script el cual tiene como objetivo tomar la salida del comando "show version" de un equipo Cisco y guardarlo en un log.
PERL:
-
#!/usr/bin/perl
-
use strict;
-
use Net::Telnet::Cisco;
-
my $session = Net::Telnet::Cisco->new(Host => 1.1.1.1);
-
$session->login('user', 'password');
-
# Ejecuta el comando show version
-
my @output = $session->cmd('show version');
-
print F "---- $hora ----\n";
-
print F "@output";
-
print F "---- ----";
-
$session->close;
Saludos
