Donnez votre Perl ( et d'extractions pratiques Signaler Language) script pour établir une connexion telnet vers un serveur distant lorsque vous avez des tâches d'administration en ligne de commande répétitives (telles que l'analyse des fichiers journaux ) qui doivent être effectuées régulièrement . Vous pouvez modules Perl de levier situé sur le site international miroir CPAN ( Comprehensive Perl Archive Network ) plutôt que d'écrire toutes les méthodes nécessaires à partir de zéro . Utilisez le module Net :: Telnet pour créer un petit script et établir une connexion telnet. Choses que vous devez
ordinateur Windows avec le logiciel de langage de programmation Perl (comme ActivePerl ) installés
net: module Perl Telnet installé
Afficher plus Instructions
1

Cliquez sur le bouton " Démarrer" sur la barre des tâches Windows , puis cliquez sur Rechercher. Tapez "cmd" dans le champ de recherche . Appuyez sur la touche "Entrée" . Entrez "notepad " sans les guillemets sur la ligne de commande et tapez sur la touche "Entrée"
2

Tapez la suivante dans le programme d' éditeur de texte Notepad qui s'affiche: .

# /Usr ! /bin /perl
utilisation de

net :: Telnet ; $ TLNT = new net :: Telnet ( Timeout = > 10, Errmode => ' die '); $ TLNT -> open (' telnet_server_IP ' ) ; $ TLNT -> waitfor (' /login : $ /i '); $ TLNT -> print (' nom_utilisateur '); $ TLNT -> waitfor (' /password: $ /i '); $ TLNT -> print (' account_password '); $ TLNT -> waitfor ('/\\ $ /i '); $ TLNT -> print (' qui '); $ output = $ TLNT -> waitfor (' /\\ $ /i '); print $ output ;

Remplacez nom_utilisateur avec le nom d'un compte qui a accès telnet sur ​​le serveur telnet, remplacer account_password avec le mot de passe du compte qui a accès telnet, et telnet_server_IP remplacer par l'adresse IP du serveur telnet.

Notez que le module de net :: Telnet est appelée au début du script telnet et les méthodes utilisées dans le script sont inclus dans le module.

3

Cliquez sur le menu Fichier et sélectionnez Enregistrer sous dans le menu qui apparaît. Tapez " telnettest.pl " ( avec les guillemets ) dans le champ Nom de fichier . Cliquez sur la zone Enregistrer sous Type et sélectionnez Tous les fichiers. Cliquez sur le bouton "Enregistrer" .
4

type " telnettest.pl " à la ligne de commande et appuyez sur la touche "Entrée" . Un message s'affiche pour confirmer que le script Perl a établi une connexion telnet avec le serveur telnet.