Telnet est un programme permettant d'accéder consoles texte sur les serveurs. Vous pouvez créer un script Perl qui se connecte automatiquement à un serveur Telnet sans entrée utilisateur afin qu'il puisse effectuer automatiquement des commandes . Malheureusement, vous ne pouvez pas appeler la commande Telnet directement à partir de l'intérieur d'un script Perl , car il accepte uniquement les commandes de la console. Archive du module CPAN de Perl officiel contient le module Net :: Telnet , qui implémente le protocole Telnet et vous permet d'ajouter des fonctions Telnet à votre script Perl. Instructions
1
cliquez sur "Démarrer ", "Tous les programmes", "Accessoires" et
2
installer Net :: Telnet en tapant " perl " Invite de commandes . " - MCPAN -e 'install net :: Telnet ' "à l'invite de commande et en appuyant sur " Entrée ".
3
Ouvrez le Bloc-notes ou votre éditeur de code préféré.
4 < p> Copiez et collez le texte suivant dans l'éditeur de texte : utilisation de
net :: Telnet ;
$ telnet = new net :: Telnet (Timeout => 10 , AB < p> Errmode => ' die '
prompt = > ' /\\ $ /i ');
$ telnet -> open (' telnet.website.com ') ;
$ telnet -> login ( 'username' , 'password' ) ;
print $ telnet- > cmd ( «qui» ) ;
5 < p> Remplacer " telnet.website.com " avec l' adresse du site Web ou l'adresse IP du serveur Telnet, "username" avec le nom d'utilisateur du serveur Telnet exige et " mot de passe " avec le mot de passe de l'utilisateur nom sur le serveur Telnet.
< br > 6
autre type de commandes Perl vous voulez que le script Telnet à exécuter après il se connecte au serveur Telnet.
7
Enregistrez le script Perl en cliquant sur " fichier" et " Enregistrer", en tapant une nom pour le script et en appuyant sur "Entrée".