Telnet è un programma per l'accesso console testuali sui server. È possibile creare uno script Perl che si connette automaticamente a un server Telnet senza input in modo da poter eseguire automaticamente i comandi. Purtroppo, non è possibile chiamare il comando Telnet direttamente dall'interno di uno script Perl, perché accetta solo i comandi dalla console. archivio modulo CPAN ufficiale di Perl contiene il modulo :: Telnet Net, che implementa il protocollo Telnet e consente di aggiungere funzioni Telnet allo script Perl.

istruzione

1 Fare clic su "Start", "Tutti i programmi", "Accessori" e "Prompt dei comandi".

2 Installare :: Telnet netto digitando "perl -MCPAN -e 'install Net :: Telnet'" al prompt dei comandi e premendo "Invio".

3 Aprire Blocco note o un editor di codice preferito.

4 Copiare e incollare il seguente testo nell'editor di testo:

usare :: Telnet netto;

$ Telnet = new Net :: Telnet (timeout => 10,

Errmode => 'die'

Prompt => '/ \ $ $ / i');

$ Telnet-> open ( 'telnet.website.com');

$ Telnet-> login ( 'username', 'password');

print $ telnet-> cmd ( 'chi');

5 Sostituire "telnet.website.com" con il sito o l'indirizzo IP del server Telnet, "username" con il nome utente del server Telnet richiede e la "password" con la password del nome utente sul server Telnet.

6 comandi di tipo diverso Perl si desidera lo script Telnet per eseguire dopo che si connette al server Telnet.

7 Salvare lo script Perl facendo clic su "File" e "Salva", digitando un nome per lo script e premendo "Invio".