Skriv en Perl ( Practical Extraction and Report Language) skript for å opprette en Telnet -tilkobling til en ekstern server når du har gjentatte kommandolinjeverktøy administrasjonsoppgaver (for eksempel analyse loggfiler ) som må utføres regelmessig. Du kan utnytte Perl-moduler som ligger i internasjonalt speilet CPAN ( Comprehensive Perl Archive Network) området i stedet for å skrive alle nødvendige metoder fra scratch. Bruk Net :: Telnet modul for å lage et kort manus og etablere en telnet -forbindelse. Du trenger
Windows-datamaskin med Perl programmeringsspråk programvare (for eksempel ActivePerl ) installert
Net: Telnet Perl modulen installert
Vis flere instruksjoner
en
Klikk "Start"- knappen på oppgavelinjen i Windows og klikk på søk. Skriv "cmd" i søkeboksen . Trykk på "Enter "-tasten. Skriv inn " notepad " uten anførselstegn på kommandolinjen og trykk på "Enter "-tasten
2
Skriv følgende inn i Notepad teksteditor program som vises : .
# /Usr ! /bin /perl
bruk Net :: Telnet , $ tlnt = new Net :: Telnet ( Timeout = > 10 , Errmode = > ' die '); $ tlnt - > open (' telnet_server_IP ' ), $ tlnt - > waitfor ( '/login : $ /i ' ), $ tlnt - > print (' brukernavn '); $ tlnt - > waitfor ( '/passord : $ /i ' ), $ tlnt - > print (' account_password '); $ tlnt - > waitfor (' /\\ $ $ /i ' ), $ tlnt - > print (' hvem '); $ output = $ tlnt - > waitfor (' /\\ $ $ /i '); print $ utgang,
Erstatt brukernavn med navnet på en konto som har telnet tilgang til telnet server, erstatte account_password med passordet for kontoen som har telnet -tilgang, og erstatte telnet_server_IP med IP -adressen til telnet server.
Merk at Net :: Telnet modulen kalles i begynnelsen av telnet script og metodene som brukes i skriptet er inkludert i modulen.
3
Klikk Fil-menyen og velg Lagre som i menyen som vises. Type " telnettest.pl " ( inkludert anførselstegn) i boksen Filnavn . Klikk Lagre som Type-boksen og velg Alle filer . Klikk på " Lagre"-knappen .
4
Type " telnettest.pl " på kommandolinjen og trykk på "Enter "-tasten. En melding som bekrefter at Perl-skript har etablert en telnet forbindelse med telnet server.
