problem connecting to "4.4.4.4
", port 23: No hay ruta hacia el host at ./telnet.pl line 27
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Necesito de su ayuda y sabiduría
Estoy recién interactuando con Perl, y necesito solucionar lo siguiente:Tengo esta topología:
Donde uso Net::Telnet::Cisco para conectarme remotamente a los enrutadores y saco la información que necesito. La información que recojo de los equipos, la guardo en un archivo .txt y la envío a un ftp con Net::FTP. Cuando guardo el archivo .txt, el $nombre de este archivo lo recojo con STDIN con la interacción del usuario. Mi problema es que, tengo que enviar este archivo por FTP y al buscarlo no sé cómo recogerlo ya que tengo 2 archivos .pl.
¿Hay alguna forma de tomar la variable de $nombre y asociarla a Net::FTP?
Código para telnet.pl:
Using perl Syntax Highlighting
- #! /usr/bin/perl
- use Net::Telnet::Cisco;
- my $session = Net::Telnet::Cisco->new(Host => '1.1.1.1');
- $session->login('admin', 'cisco');
- # Execute a command
- my @output1 = $session->cmd('show running-config');
- my @output2 = $session->cmd('show ip interface brief');
- my @output3 = $session->cmd('show version');
- my @output4 = $session->cmd('show inventory');
- print "Ingrese el nombre de archivo:\n";
- $nombre = <STDIN>;
- open STDOUT, ">$nombre";
- print @output1;
- print @output2;
- print @output3;
- print @output4;
- close STDOUT;
- $session->close;
- my $outftp = system('/home/alumno/ftp.pl');
- open STDOUT;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Código para ftp.pl:
Using perl Syntax Highlighting
- #! /usr/bin/perl
- use Net::FTP;
- use strict;
- my ($ftp, $host, $user, $pass, $archivo);
- $host = "192.168.2.100";
- $user = "anon";
- $pass = "prueba";
- $archivo = "config.txt"; //aquí quiero rescatar la variable de $nombre de telnet.pl//
- $ftp = Net::FTP->new($host) or die "No se pudo conectar a FTP: $host\n";
- $ftp->login($user, $pass) or die "Autenticacion fallida\n";
- $ftp->put($archivo) or die "No se pudo subir el archivo";
- $ftp->quit;
- print "Archivo transferido...\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Atento a sus comentarios.
¡ Saludos !