Scrivi un Perl (Practical Extraction and Report Language) script per stabilire una connessione telnet a un server remoto quando si dispone di attività di amministrazione da riga di comando ripetitivi (come ad esempio l'analisi dei file di registro) che devono essere eseguite regolarmente. È possibile sfruttare moduli Perl si trovano nel sito mirroring internazionale CPAN (Comprehensive Perl Archive Network) piuttosto che scrivere tutti i metodi richiesti da zero. Utilizzare il modulo di :: Telnet Net per creare un breve script e stabilire una connessione telnet.

istruzione

1 Fare clic sul pulsante "Start" sulla barra delle applicazioni di Windows e fare clic su Cerca. Digitare "cmd" nella casella di ricerca. Premere il tasto "Enter". Inserire "notepad" senza virgolette nella riga di comando e toccare il tasto "Enter".

2 Digitare quanto segue nel programma di editor di testo Blocco note che appare:

! / Usr / bin / perl

usare :: Telnet netto;
$ Tlnt = new Net :: Telnet (timeout => 10, Errmode => 'die');
$ Tlnt-> open ( 'telnet_server_IP');
$ Tlnt-> waitfor ( '/ login: $ / i');
$ Tlnt-> print ( 'user_name');
$ Tlnt-> waitfor ( '/ password: $ / i');
$ Tlnt-> print ( 'account_password');
$ Tlnt-> waitfor ( '/ \ $ $ / i');
$ Tlnt-> print ( 'chi');
$ Output = $ tlnt-> waitfor ( '/ \ $ $ / i');
print $ output;

Sostituire nome_utente con il nome di un account che ha accesso telnet al server Telnet, sostituire account_password con la password per l'account che ha accesso Telnet, e sostituire telnet_server_IP con l'indirizzo IP del server Telnet.

Si noti che il modulo Telnet Net :: viene chiamata all'inizio dello script telnet ed i metodi utilizzati nello script sono inclusi nel modulo.

3 Fare clic sul menu File e selezionare Salva con nome nel menu che appare. Tipo "telnettest.pl" (incluse le virgolette) nella casella Nome file. Fare clic sulla casella Tipo e selezionare tutti i file. Fare clic sul pulsante "Salva".

4 Tipo "telnettest.pl" nella riga di comando e premere il tasto "Enter". Apparirà un messaggio di conferma che lo script Perl ha stabilito una connessione telnet con il server Telnet.