Telnet är ett program för att komma åt text konsoler på servrar . Du kan skapa ett Perl- skript som automatiskt ansluter till en Telnet -server utan - ingång så att det kan utföra kommandon automatiskt . Tyvärr kan du inte ringa kommandot telnet direkt inifrån ett Perl-skript , eftersom det endast accepterar kommandon från konsolen . Perl officiella CPAN modul arkiv innehåller Net :: Telnet modul som implementerar Telnet-protokollet och låter dig lägga till Telnet funktioner till din Perl-skript . Instruktioner
1
Klicka på "Start ", " Alla program", " Tillbehör" och köpa 2
Installera Net :: Telnet genom att skriva " perl " Command Prompt . " - MCPAN - e ' install Net :: Telnet ' " i kommandotolken och trycka på " Enter ".
3
Öppna Anteckningar eller din favorit -kod redaktör .
4
Kopiera och klistra in följande text i textredigeraren :
använda Net :: Telnet ,
$ telnet = ny Net :: Telnet ( Timeout = > 10 ,
Errmode = > ' die '
Prompt = > ' /\\ $ $ /i ');
$ telnet - > open ( ' telnet.website.com ' ) ;
$ telnet - > inloggning ( ' username ' , ' lösenord ');
print $ telnet - > cmd ( ' som ');
5
Ersätt " telnet.website.com " med hemsidan eller IP -adressen för Telnet-servern , " username " med användarnamnet Telnet-servern kräver och " lösenord " med användarnamnet lösenord på Telnet -servern .
6
Typ andra Perl kommandon som du vill Telnet skript som ska köras när den ansluter till Telnet -servern .
7
Spara Perl-skript genom att klicka på " File " och " Spara ", skriva en namn på skriptet och trycka på " Enter ".
