Cómo escribir un script en Perl que Telnet solicita el nombre del host

Telnet es un programa usado para servidores de acceso. Perl es un lenguaje de programación que se pueden utilizar para acceder a la interfaz de Telnet a través de un paquete llamado "Net :: Telnet", que está disponible para su descarga gratuita. El paquete Net :: Telnet permite a los programadores para comunicarse con un servidor en Perl usando los protocolos Telnet. Hay un método dentro del paquete para el nombre del host. Por lo tanto, el nombre del host puede ser impreso por Perl Perl, mientras que tiene acceso a un servidor Telnet.

Instrucciones

1 Lanzar el símbolo del sistema de Windows. Haga clic en "Inicio", "Ejecutar". Tipo "cmd.exe" y presionar "Enter".

2 Ejecutar el shell de CPAN. En el símbolo del sistema escriba: "perl -e -MCPAN cáscara" y presionar "Enter".

3 Instalar Net :: Telnet. En el símbolo del sistema, escriba "instalar Net :: Telnet :: Cisco" y presionar "Enter".

4 Lance un editor de código o el Bloc de notas.

5 Utilice el siguiente código para iniciar una conexión Telnet y pedirá el anfitrión:

utilizar Net :: Telnet;

$ Telnet = new Net :: Telnet (Tiempo de espera => 10, Errmode => 'mueren'); $ Telnet-> abierto ( '<Nombre del servidor ");

$ Telnet-> waitfor ( '/ entrada: $ / i');

$ Telnet-> print ( '<nombre_de_usuario>');

$ Telnet-> waitfor ( '/ contraseña: $ / i');

$ Telnet-> print ( '<login_password');

$ Telnet-> waitfor ( '/ \ $ $ / i');

$ Telnet-> print ( 'anfitrión');

$ Salida = $ telnet-> waitfor ( '/ \ $ $ / i');

$ impresión de salida;

6 Guarda el archivo. Utilice la extensión PL.