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".