Hvordan skrive en Perl Telnet Script
Telnet er et program for å få tilgang til tekst konsoller på servere. Du kan opprette en Perl-skript som automatisk kobler seg til en Telnet-server uten noen bruker-inngang 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 godtar kommandoer fra konsollen. Perl offisielle CPAN modul arkivet inneholder Net :: Telnet-modul, som implementerer Telnet-protokollen, og lar deg legge til Telnet funksjoner til Perl-skript.
Bruksanvisning
1 Klikk "Start", "Alle programmer," "Tilbehør" og "Ledetekst."
2 Installer Net :: Telnet ved å skrive "perl -MCPAN -e 'install Net :: Telnet'" ved ledeteksten og trykke "Enter".
3 Åpne Notisblokk eller din favoritt kode editor.
4 Kopier og lim inn følgende tekst inn i teksteditor:
bruke Net :: Telnet;
$ Telnet = ny Net :: Telnet (Timeout => 10,
Errmode => 'die'
Spør => '/ \ $ $ / i');
$ Telnet-> open ( 'telnet.website.com');
$ Telnet-> logg ( 'brukernavn', 'passord');
print $ telnet-> cmd ( 'hvem');
5 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 Perl kommandoer du vil at Telnet skript for å kjøre etter den kobles til Telnet-server.
7 Lagre Perl script ved å klikke på "File" og "Save", skrive inn et navn for skriptet og trykke "Enter".