Cómo escribir una secuencia de comandos Telnet Perl que solicita el nombre del Host

Telnet es un programa que sirve para acceder a los servidores . Perl es un lenguaje de programación que se puede 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 protocolos Telnet . Hay un método dentro del paquete para el nombre del anfitrión . Por lo tanto , el nombre del host puede ser impreso por Perl , mientras que Perl tiene acceso a un servidor Telnet. Instrucciones
1

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

Ejecute el shell de CPAN . En el símbolo del sistema escriba : " perl- MCPAN -e shell" y presionar " Enter".
3

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

Inicie un editor de código o Bloc de notas .
5

Uso el siguiente código para iniciar una conexión Telnet y pedirá el host: Usa

Net :: Telnet ;

$ telnet = new Net :: Telnet ( Timeout = > 10 , Errmode = > , 'die ' ), $ telnet- > open ( '< nombreDeServidor ');

$ telnet- > waitfor ( ' /login : $ /i ');

$ telnet- > print (' ');

$ telnet- > waitfor ( ' /password : $ /i ');

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

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

$ telnet- > print ( "anfitrión" ) ;

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

print $ salida;
6

Guarde el archivo . Utilice la extensión de PL .