Hur man skriver ett Perl Telnet skript som frågar efter värdens namn

Telnet är ett program som används för att komma åt servrar . Perl är ett programmeringsspråk som kan användas för att få åtkomst till Telnet -gränssnittet via ett paket som kallas " Net :: Telnet , " som är tillgänglig för gratis nedladdning . Net :: Telnet paket tillåter programmerare att kommunicera med en server i Perl med Telnet protokoll . Det finns en metod inuti förpackningen för värdens namn. Således kan värdens namn skrivas av Perl medan Perl har tillgång till en Telnet -server . Instruktioner
1

Starta Windows Kommandotolken . Klicka på " Start", " Kör". Typ " CMD.EXE " och tryck sedan på " Enter ".
2

Kör CPAN skalet . I kommandotolken typ : " perl - MCPAN - e shell " och tryck sedan på " Enter ".
3

Installera Net :: Telnet . I kommandotolken skriver du " installera Net :: Telnet :: Cisco " och tryck sedan på " Enter ".
4

Starta en kod redaktör eller Anteckningar .
5

Användning följande kod för att starta en Telnet -anslutning och fråga efter värden :

använda Net :: Telnet ,

$ telnet = ny Net :: Telnet ( Timeout = > 10 , Errmode = > , " dö " ) , $ telnet - > open ( ' < servernamn ');

$ telnet - > WAITFOR ( ' /login : $ /i ');

$ telnet - > print ( ' ' ) ;

$ telnet - > WAITFOR ( ' /lösenord : $ /i ');

$ telnet - > print ( ' < Login_Password ');

$ telnet - > WAITFOR ( ' /\\ $ $ /i ');

$ telnet - > print ( " host " ) ;

$ output = $ telnet - > WAITFOR ( ' /\\ $ $ /i ');

print $ utgång;
6

Spara filen . Använd tillägget PL .