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

Escribe una Perl ( Practical Extraction e Informe Idioma ) script 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 los archivos de registro ) que se deben realizar regularmente . Puede módulos Perl apalancamiento se encuentra en el sitio espejo en lugar de escribir todos los métodos necesarios de cero internacional CPAN ( Comprehensive Perl Archive Network ) . Utilice el módulo Net :: Telnet para crear un pequeño script y establecer una conexión telnet. Cosas que necesitará de computadora con Windows con software de lenguaje de programación Perl (como ActivePerl ) instalados
neto: módulo Perl Telnet instalado
Mostrar más instrucciones
1

Click el botón "Inicio" en la barra de tareas de Windows y haga clic en Buscar . Escriba "cmd " en la caja de búsqueda. Pulse la tecla "Enter " . Escriba "notepad " 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 Usa

Net :: Telnet , $ tlnt = new Net :: Telnet ( Timeout = > 10 , Errmode = > 'die ' ), $ tlnt -> open (' telnet_server_IP ' ), $ tlnt -> waitfor ( ' /login : $ /i ' ), $ tlnt -> print (' nombre_usuario ' ), $ tlnt -> waitfor ( ' /password : $ /i ' ), $ tlnt -> print (' account_password ' ), $ tlnt -> waitfor ('/\\ $ $ /i ' ), $ tlnt -> print ( "quién" ) , y la salida $ = $ tlnt -> waitfor ( ' /\\ $ $ /i '); print $ salida;

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

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

3 Haga clic en el menú Archivo y seleccione Guardar como en el menú que aparece. Escriba " 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

Type " telnettest.pl " en la línea de comando y presione la tecla "Enter " . Aparecerá un mensaje que confirma que la secuencia de comandos Perl ha establecido una conexión telnet con el servidor telnet.