Telnet er et program til at få adgang til tekst- konsoller på servere . Du kan oprette en Perl script, der automatisk forbindelse til en Telnet server uden brugeranmeldelser - indgang, så den kan udføre kommandoer automatisk. Desværre kan du ikke ringe til Telnet kommando direkte fra inde i et Perl-script , fordi den kun accepterer kommandoer fra konsollen. Perl officielle CPAN modul arkiv indeholder Net :: Telnet -modul, som implementerer Telnet-protokollen og giver dig mulighed for at tilføje Telnet funktioner til din Perl script. Instruktioner
1
Klik på "Start ", " Alle programmer ", "Accessories " og
2
Installer Net :: Telnet ved at skrive " perl " Command Prompt ". - MCPAN - e 'install Net :: Telnet ' " ved kommandoprompten og trykke på" Enter ".
3
Åbn Notesblok eller din foretrukne kode editor.
4 < p> Kopier og indsæt følgende tekst i teksteditoren : Hej
brug Net :: Telnet ,
$ telnet = new Net :: Telnet ( Timeout = > 10 ,
< p> Errmode => ' die '
Prompt => ' /\\ $ $ /i ');
$ telnet - > open ( ' telnet.website.com ) ;
$ telnet -> login ( ' brugernavn ', ' password ');
print $ telnet -> cmd ( 'hvem ');
5 < p> Erstat " telnet.website.com " med hjemmesiden eller IP-adressen på Telnet -serveren , " brugernavn" med brugernavnet Telnet server kræver og "password" med brugernavnet adgangskode på Telnet server.
< br > 6
Type andre Perl -kommandoer , du ønsker Telnet script til at udføre efter at den forbinder til Telnet server.
7
Gem Perl script ved at klikke på "File" og "Gem ", skrive en navn for scriptet, og trykke på " Enter".