Hvordan lage en enkel Telnet Script i Perl

Skriv en Perl (Practical Extraction and Report Language) script for å etablere en telnet-tilkobling til en ekstern server når du har gjentatte kommandolinjeadministrasjonsoppgaver (for eksempel analyse av 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 bunnen av. Bruk Net :: Telnet-modulen for å lage en kort manus og etablere en telnet-tilkobling.

Bruksanvisning

1 Klikk på "Start" -knappen på oppgavelinjen i Windows, og klikk på Søk. Skriv "cmd" i søkeboksen. Trykk på "Enter" -tasten. Skriv "notepad" uten anførselstegn på kommandolinjen og trykk på "Enter" -tasten.

2 Skriv følgende inn i Notepad tekst editor program som vises:

! / Usr / bin / perl

bruke Net :: Telnet;
$ Tlnt = ny Net :: Telnet (Timeout => 10, Errmode => 'die');
$ Tlnt-> open ( 'telnet_server_IP');
$ Tlnt-> waitfor ( '/ pålogging: $ / 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.

Legg merke til at netto :: Telnet modul som kalles ved begynnelsen av Telnet-skriptet og metodene som brukes i skriptet inngår i modulen.

3 Klikk Fil-menyen og velg Lagre som i menyen som vises. Skriv "telnettest.pl" (inkludert anførselstegn) i Filnavn-boksen. Klikk på Lagre som Type-boksen og velg Alle filer. Klikk på "Lagre" -knappen.

4 Skriv "telnettest.pl" på kommandolinjen og trykk "Enter" -tasten. Det vises en melding som bekrefter at Perl-skriptet har etablert en telnet forbindelse med telnet server.