Telnet ist ein Programm zum Zugriff auf Server . Perl ist eine Programmiersprache , die verwendet werden , um die Telnet-Schnittstelle über ein Paket namens " Net :: Telnet ", die zum kostenlosen Download verfügbar ist zugegriffen werden kann . Die Net :: Telnet -Paket ermöglicht es Programmierern, mit einem Server in Perl mit Telnet Protokolle kommunizieren. Es ist eine Methode, in der Verpackung für den Host- Namen. So kann der Host- Name von Perl gedruckt werden, während Perl hat Zugang zu einem Telnet-Server . Anleitung
1
Starten Sie den Windows -Eingabeaufforderung. Klicken Sie auf " Start", " Ausführen". Geben Sie " cmd.exe " aus und drücken "Enter".
2
Führen Sie das CPAN-Shell . An der Eingabeaufforderung ein: "perl- e shell - MCPAN " und drücken Sie dann "Enter".
3
Installieren Net :: Telnet. An der Eingabeaufforderung geben Sie "install Net :: Telnet :: Cisco " und drücken Sie "Enter".
4
Starten Sie einen Code-Editor oder Notepad.
5
Nutzungsbedingungen Mit dem folgenden Code , um eine Telnet-Verbindung starten und fordert für den Gastgeber:
Verwendung Net :: Telnet ;
$ telnet = new Net :: Telnet ( Timeout = > 10 , Errmode => ; 'die '); $ telnet -> open (' < Server_Name ');
$ telnet -> waitfor ( ' /login : $ /i ');
$ Telnet -> print (' ');
$ telnet -> waitfor ( ' /password: $ /i ');
$ telnet -> print ( '< login_password ');
$ telnet -> waitfor ('/\\ $ $ /i ');
$ telnet -> print (' Host ');
$ output = $ telnet -> waitfor ('/\\ $ $ /i ');
print $ ausgegeben ;
6
Speichern Sie die Datei . Verwenden Sie die Erweiterung PL .