Telnet es un programa para acceder a las consolas de texto en los servidores. Se 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 de la consola. archivo oficial módulo CPAN de Perl contiene el módulo Net :: Telnet, que implementa el protocolo Telnet y le permite añadir funciones de Telnet a su script de Perl.
Instrucciones
1 Haga clic en "Inicio", "Todos los programas", "Accesorios" y "Símbolo del sistema".
2 Instalar Net :: Telnet escribiendo "perl -e -MCPAN 'instalar Net :: Telnet'" en el símbolo del sistema y presionar "Enter".
3 Abrir Bloc de notas o su editor de código favorito.
4 Copiar y pegar el siguiente texto en el editor de texto:
utilizar Net :: Telnet;
$ Telnet = new Net :: Telnet (Tiempo de espera => 10,
Errmode => 'mueren'
Prompt => '/ \ $ $ / i');
$ Telnet-> abierto ( 'telnet.website.com');
$ Telnet-> iniciar sesión ( 'nombre de usuario', 'password');
print $ telnet-> cmd ( "quién");
5 Reemplazar "telnet.website.com" con el sitio web o la dirección IP del servidor Telnet, "nombre de usuario" 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 Comandos de tipo distinto Perl desea que la secuencia de comandos Telnet para ejecutar después de que se conecta al servidor Telnet.
7 Guarde el script en Perl haciendo clic en "Archivo" y "Guardar", escribir un nombre para la secuencia de comandos y presionar "Enter".