Telnet er et program for å få tilgang tekst konsoller på servere . Du kan lage et Perl-skript som automatisk kobles til en Telnet-server uten noen inngående slik at den kan utføre kommandoer automatisk. Dessverre kan du ikke ringe Telnet kommandoen direkte fra innsiden av en Perl-skript fordi den bare aksepterer kommandoer fra konsollen . Perl offisielle CPAN modul arkivet inneholder Net :: Telnet -modul , som implementerer Telnet -protokollen og lar deg legge til Telnet funksjoner til din Perl-skript . Instruksjoner
en
Klikk "Start", " Alle programmer ," " Tilbehør" og
2
Installer Net :: Telnet ved å skrive " perl " Command Prompt . "- MCPAN - e ' install Net :: Telnet ' " ved ledeteksten og trykke " Enter ".
3
Åpne Notisblokk eller din favoritt kode editor.
4 < p > Kopier og lim inn følgende tekst i tekst-editor : en
bruk Net :: Telnet ;
$ telnet = new Net :: Telnet ( Timeout = > 10 , etter < p> Errmode = > ' die '
Spør = > '/\\ $ $ /i ');
$ telnet - > open (' telnet.website.com ') ;
$ telnet - > logg (' brukernavn ', ' passord ');
print $ telnet - > cmd (' hvem ');
5 < p> Erstatt " telnet.website.com " med nettsiden eller IP -adressen til Telnet server, "brukernavn" med brukernavnet Telnet -serveren krever og "password " med brukernavn passord på Telnet server.
6
Type andre Perl- kommandoene du vil at Telnet skript for å kjøre etter at den kobles til Telnet -serveren.
7
Lagre Perl script ved å klikke på "File " og "Lagre ", skrive en navn for manus og trykke "Enter".