Skriv en Perl ( Praktisk Udvinding og rapport Sprog ) script til at oprette en telnet forbindelse til en ekstern server , når du har gentagne kommandolinje- administrationsopgaver (såsom parsing logfiler ), der skal udføres regelmæssigt . Du kan udnytte Perlmoduler placeret i den internationalt spejlet CPAN ( Comprehensive Perl Archive Network) hjemmeside snarere end at skrive alle krævede metoder fra bunden. Brug Net :: Telnet modul til at lave en kort script og etablere en telnet forbindelse . Ting du skal
Windows-computer med Perl programmeringssprog software (såsom ActivePerl ) installeret
Net : Telnet Perlmodul installeret
Vis Flere Instruktioner
1
Click "Start " knappen på proceslinjen i Windows , og klik på Søg. Skriv " cmd" i søgefeltet . Tryk på " Enter "-tasten. Enter " notepad " uden citationstegn på kommandolinjen , og tryk på "Enter" tasten
2
Skriv følgende i Notesblok tekst editor program, der vises : .
# /Usr ! /bin /perl
brug Net :: Telnet , $ tlnt = new Net :: Telnet ( Timeout = > 10 , Errmode => 'die '); $ tlnt - > open ( ' telnet_server_IP ' ) $ tlnt -> waitFor ( ' /login : $ /i '); $ tlnt -> print ( ' user_name «) $ tlnt -> waitFor ( ' /password: $ /i '); $ tlnt -> print ( ' account_password «) $ tlnt -> waitFor ( ' /\\ $ $ /i '); $ tlnt -> print ( ' hvem '); $ output = $ tlnt -> waitFor ( ' /\\ $ $ /i '); print $ output;
Udskift user_name med navnet på en konto, der har telnet adgang til telnet server , udskift account_password med adgangskoden til kontoen , der har telnet adgang samt erstatte telnet_server_IP med IP -adressen på den telnet server.
Bemærk at Net :: Telnet modul kaldes i starten af telnet script og de anvendte metoder i scriptet er inkluderet i modulet.
3
Klik på menuen Filer , og vælg Gem som i menuen, der vises . Skriv " telnettest.pl " ( inklusive anførselstegn) i feltet Filnavn . Klik på Gem som type , og vælg Alle filer . Klik på "Gem "-knappen.
4
Type " telnettest.pl " på kommandolinjen , og tryk på "Enter "-tasten. En besked vil blive vist bekræfter, at Perl script har etableret en telnet forbindelse med telnet server.
