Ayuda con módulos de Cisco
Publicado: 2011-12-13 22:22 @974Hola y gracias por el foro me ha servido de mucho. Soy nuevo en Perl y tengo los conceptos básicos.
Ahora me han asignado una tarea en la cual debo ejecutar unos módulos de Cisco. Ya he logrado conectarme con el telnet pero lo que no he sabido aplicar es el módulo de Cisco::Abbrev.
Por favor, si pudieran ayudarme.
Lo que tengo hecho es:
Lo que quiero saber es cómo lograr que si yo en la variable $short le coloco, por ejemplo, h, que pueda realizar, por ejemplo, un show interface h y me muestre la interfaz gigabitethernet.
De antemano, muchas gracias.
Ahora me han asignado una tarea en la cual debo ejecutar unos módulos de Cisco. Ya he logrado conectarme con el telnet pero lo que no he sabido aplicar es el módulo de Cisco::Abbrev.
Por favor, si pudieran ayudarme.
Lo que tengo hecho es:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Net::Telnet::Cisco;
- use Cisco::Abbrev;
- my $long = cisco_long_int('Gi0/1'); ##$long='GigabitEthernet0/1';
- my $short = cisco_abbrev_int('GigabitEthernet0/1');
- ## $short='Gi0/1';
- my $session = Net::Telnet::Cisco->new(Host => '10.1.1.1');
- $session->login('cisco','cisco');
- # Execute a command
- my @output = $session->cmd('show interface Gi0/1');
- print @output;
- # Enable mode
- if ($session->enable("cisco") )
- {
- @output = $session->cmd('show interface Gi0/1');
- print "My privileges: @output\n";
- }
- else
- {
- warn "Can't enable: " . $session->errmsg;
- }
- $session->close;
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Lo que quiero saber es cómo lograr que si yo en la variable $short le coloco, por ejemplo, h, que pueda realizar, por ejemplo, un show interface h y me muestre la interfaz gigabitethernet.
De antemano, muchas gracias.