Scrivi una Perl ( Practical Extraction and Report Language) script per stabilire una connessione telnet ad un server remoto quando si dispone di attività di amministrazione da riga di comando ripetitivi (ad esempio l'analisi dei file di log) che devono essere eseguite regolarmente . È possibile sfruttare i moduli Perl situato nel sito internazionale specchiata CPAN ( Comprehensive Perl Archive Network ), piuttosto che scrivere tutti i metodi richiesti da zero . Utilizza il modulo Net :: Telnet per creare una breve sceneggiatura e stabilire una connessione telnet . Cose che ti serviranno
computer Windows con software di linguaggio di programmazione Perl (come ActivePerl ) installati
netto: Telnet modulo Perl installato
Mostra Altre istruzioni
1
Click il 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 premere il tasto "Enter "
2
Digitare quanto segue nel programma di editor di testo Blocco note che appare : .
# /Usr ! /bin /perl
uso
Net :: Telnet ; $ 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 '); uscita $ = $ tlnt - > waitfor ( ' /\\ $ $ /i '); print $ output ;
sostituire nome_utente con il nome di un account con 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 Net :: Telnet è chiamato 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 dal menu che appare. Digitare " telnettest.pl " ( comprese le virgolette ) nella casella Nome file. Fare clic sul Tipo file e selezionare Tutti i file . Fare clic sul pulsante "Salva" .
4
Tipo " telnettest.pl " nella riga di comando e premere il tasto "Enter" . Verrà visualizzato un messaggio che conferma che lo script Perl ha stabilito una connessione telnet con il server telnet .
