Tecnología

Inicio

Cómo crear una secuencia de comandos de Telnet simple en Perl

Escribe una Perl (Practical Extraction e Informe Language) secuencia de comandos para establecer una conexión telnet a un servidor remoto cuando tiene tareas de administración de línea de comandos repetitivos (como el análisis de archivos de registro) que se deben realizar con regularidad. Puede aprovechar los módulos de Perl, ubicados en el sitio reflejado internacional CPAN (Integral Perl Archive Network) en lugar de escribir todos los métodos necesarios a partir de cero. Utilice el módulo Net :: Telnet para crear un pequeño script y establecer una conexión telnet.

Instrucciones

1 Haga clic en el botón "Inicio" en la barra de tareas de Windows y haga clic en Buscar. Escriba "cmd" en el cuadro de búsqueda. Pulse la tecla "Enter". Introduzca la "libreta" sin las comillas en la línea de comandos y pulse la tecla "Enter".

2 Escriba lo siguiente en el programa editor de texto Bloc de notas que aparece:

! / Usr / bin / perl

utilizar Net :: Telnet;
$ Tlnt = new Net :: Telnet (Tiempo de espera => 10, Errmode => 'mueren');
$ Tlnt-> abierto ( 'telnet_server_IP');
$ Tlnt-> waitfor ( '/ entrada: $ / i');
$ Tlnt-> print ( 'nombre_usuario');
$ Tlnt-> waitfor ( '/ contraseña: $ / i');
$ Tlnt-> print ( 'account_password');
$ Tlnt-> waitfor ( '/ \ $ $ / i');
$ Tlnt-> print ( "quién");
$ Salida = $ tlnt-> waitfor ( '/ \ $ $ / i');
$ impresión de salida;

Reemplazar nombre_usuario con el nombre de una cuenta que tenga acceso a telnet al servidor telnet, reemplace account_password con la contraseña de la cuenta que tenga acceso a telnet, y reemplazar telnet_server_IP con la dirección IP del servidor telnet.

Tenga en cuenta que el módulo de Telnet Net :: se llama al principio de la secuencia de comandos telnet y los métodos utilizados en la secuencia de comandos están incluidos en el módulo.

3 Haga clic en el menú Archivo y seleccione Guardar como en el menú que aparece. Tipo "telnettest.pl" (incluyendo las comillas) en el cuadro Nombre de archivo. Haga clic en el cuadro Guardar como tipo y seleccione todos los archivos. Haga clic en el botón "Guardar".

4 Tipo "telnettest.pl" en la línea de comandos y pulse la tecla "Enter". Aparecerá un mensaje que confirma que el script en Perl ha establecido una conexión telnet con el servidor telnet.