Skriv ett Perl ( Practical Extraction and Report Language ) skript för att upprätta en telnet -anslutning till en fjärrserver när du har repetitiva kommandoradsverktyg administrativa uppgifter ( t.ex. analysera loggfiler ) som måste utföras regelbundet. Du kan utnyttja Perl moduler ligger i internationellt speglade CPAN ( Comprehensive Perl Archive Network ) plats i stället för att skriva alla nödvändiga metoder från scratch . Använd Net :: Telnet modul för att skapa ett kort manus och upprätta en telnet -anslutning . Saker du behöver
Windows-dator med Perl programmeringsspråk programvara ( t.ex. ActivePerl ) installerat
Net : Telnet Perl -modul installerad
Visa fler instruktioner
1
Klicka "Start " -knappen i aktivitetsfältet i Windows och klicka på sök . Skriv " cmd " i sökrutan . Tryck på " Enter" . Skriv " notepad " utan citationstecken på kommandoraden och tryck på " Enter"
2
Skriv följande i Anteckningar textredigerare program som visas : .
# /Usr ! /bin /perl
använda Net :: Telnet , $ TLNT = ny Net :: Telnet ( Timeout = > 10 , Errmode = > ' dö ' ) ; $ TLNT - > open ( ' telnet_server_IP ' ) ; $ TLNT - > WAITFOR ( ' /login : $ /i ' ) ; $ TLNT - > print ( ' användarnamn ' ) ; $ TLNT - > WAITFOR ( ' /lösenord : $ /i ' ) ; $ TLNT - > print ( ' account_password ' ) ; $ TLNT - > WAITFOR ( ' /\\ $ $ /i ' ) ; $ TLNT - > print ( "vem" ) , $ output = $ TLNT - > WAITFOR ( ' /\\ $ $ /i '); print $ produktion;
Byt användarnamn med namnet på ett konto som har telnet tillgång till telnet -server , byt account_password med lösenordet för det konto som har telnet tillgång , och byt telnet_server_IP med IP-adressen för Telnet-servern .
Observera att Net :: Telnet modulen kallas i början av telnet manus och de metoder som används i skriptet ingår i modulen .
3
Klicka på menyn Arkiv och välj Spara som i menyn som visas . Skriv " telnettest.pl " ( inklusive citattecken ) i rutan Filnamn . Klicka på rutan Filformat och välj Alla filer . Klicka på knappen "Spara" .
4
Type " telnettest.pl " på kommandoraden och tryck på " Enter" . Ett meddelande visas som bekräftar att Perl-skript har etablerat en telnet anslutning med Telnet-servern .
