Cómo escribir una secuencia de comandos Telnet Perl

Telnet es un programa para acceder a consolas de texto en los servidores . Puede crear un script en Perl que se conecta automáticamente a un servidor Telnet sin entrada de usuario para que pueda ejecutar comandos de forma automática. Por desgracia , no se puede llamar el comando Telnet directamente desde dentro de un script Perl , ya que sólo acepta comandos desde la consola . Módulo funcionario archivo CPAN de Perl contiene el módulo Net :: Telnet , que implementa el protocolo Telnet y le permite añadir funciones de Telnet al script Perl. Instrucciones
1

Haga clic en " Inicio", "Todos los programas ", " Accesorios" y
2

instalar Net :: Telnet escribiendo " perl " Símbolo del sistema . " - MCPAN -e ' install Net :: Telnet " en el símbolo del sistema y presiona " Enter ".
3

Abrir Bloc de notas o tu editor de código favorito.
4 < p> Copie y pegue el siguiente texto en el editor de texto : Usa

Net :: Telnet ;

$ telnet = new Net :: Telnet ( Timeout = > 10 ,
< p> Errmode = > 'die '

Prompt = > '/\\ $ $ /i ');

$ telnet- > open (' telnet.website.com ' ) ;

$ telnet- > login ( 'username' , ' password' ) ;

print $ telnet- > cmd ( "quién" ) ;
5 < p > Reemplazar " telnet.website.com " con la dirección del sitio web o dirección IP del servidor Telnet, "username" con el nombre de usuario del servidor Telnet requiere y " contraseña" con la contraseña del nombre de usuario en el servidor Telnet.

6

Tipo de otros comandos Perl que desea la secuencia de comandos Telnet para ejecutar después de que se conecta con el servidor Telnet.
7

Guardar la secuencia de comandos Perl haciendo clic en " archivo" y " Guardar ", al escribir un nombre para la secuencia de comandos y presionar " Enter".