Telnet è un programma utilizzato per server di accesso. Perl è un linguaggio di programmazione che può essere utilizzato per accedere all'interfaccia Telnet tramite un pacchetto chiamato "Net :: Telnet", che è disponibile per il download gratuito. Il pacchetto Net :: Telnet consente ai programmatori di comunicare con un server in Perl utilizzando i protocolli Telnet. C'è un metodo all'interno del pacchetto per il nome dell'host. Così, il nome dell'host può essere stampato da Perl mentre Perl ha accesso a un server Telnet.

istruzione

1 Avviare il prompt dei comandi di Windows. Fare clic su "Start", "Esegui". Digitare "cmd.exe", quindi premere "Invio".

2 Eseguire la shell CPAN. Al prompt dei comandi digitare: "perl -MCPAN -e shell" e premere "Invio".

3 Installare :: Telnet netto. Al prompt dei comandi, digitare "installare Net :: Telnet :: Cisco", quindi premere "Invio".

4 Avviare un editor di codice o Notepad.

5 Utilizzare il seguente codice per avviare una connessione Telnet e chiederà per l'host:

usare :: Telnet netto;

$ Telnet = new Net :: Telnet (timeout => 10, Errmode => 'die'); $ Telnet-> open ( '<Server_Name');

$ Telnet-> waitfor ( '/ login: $ / i');

$ Telnet-> print ( '<login_name>');

$ Telnet-> waitfor ( '/ password: $ / i');

$ Telnet-> print ( '<login_password');

$ Telnet-> waitfor ( '/ \ $ $ / i');

$ Telnet-> print ( 'host');

$ Output = $ telnet-> waitfor ( '/ \ $ $ / i');

print $ output;

6 Salvare il file. Utilizzare l'estensione PL.