Πώς να γράψετε ένα Perl Script Telnet που ζητά το όνομα της υποδοχής

Telnet είναι ένα πρόγραμμα που χρησιμοποιείται στους διακομιστές πρόσβασης . Perl είναι μια γλώσσα προγραμματισμού που μπορεί να χρησιμοποιηθεί για πρόσβαση στο interface Telnet μέσω ενός πακέτου που ονομάζεται " Net :: Telnet , " το οποίο είναι διαθέσιμο για δωρεάν download . Το πακέτο Net :: Telnet επιτρέπει στους προγραμματιστές να επικοινωνεί με ένα εξυπηρετητή σε Perl , χρησιμοποιώντας πρωτόκολλα Telnet . Υπάρχει μια μέθοδος εντός της συσκευασίας για το όνομα του ξενιστή. Έτσι , το όνομα του κεντρικού υπολογιστή μπορεί να εκτυπώνονται από Perl Perl , ενώ έχει πρόσβαση σε ένα διακομιστή Telnet . Οδηγίες
Η 1

Ξεκινήστε με την γραμμή εντολών των Windows . Κάντε κλικ στο κουμπί "Start ", " Run". Πληκτρολογήστε " CMD.EXE " και στη συνέχεια πατήστε το πλήκτρο " Enter". 2

Εκτελέστε το κέλυφος CPAN . Στη γραμμή εντολών, πληκτρολογήστε: " perl - MCPAN -e κέλυφος " και στη συνέχεια πατήστε το πλήκτρο " Enter".
Εικόνων 3

Εγκατάσταση Net :: Telnet . Στη γραμμή εντολών, πληκτρολογήστε " εγκατάσταση Net :: Telnet :: Cisco " και στη συνέχεια πατήστε το πλήκτρο " Enter".
Η 4

ξεκινήσει ένα πρόγραμμα επεξεργασίας κώδικα ή Σημειωματάριο .
5

Χρήση τον ακόλουθο κώδικα για να ξεκινήσει μια σύνδεση Telnet και προτροπή για τη χώρα υποδοχής :

χρησιμοποιούν Net :: Telnet ?

$ telnet = νέα Net :: Telnet ( Timeout = > 10 , Errmode = > ? « μήτρα ») ? $ telnet - > ανοικτό ( ' <Όνομα_Διακομιστή » ) ?

$ telnet - > waitfor ( ' /Είσοδος : $ /i ' ) ?

$ telnet - > print (' ') ?

$ telnet - > waitfor ( ' /password : $ /i' ) ?

$ telnet - > print ( «

$ telnet - > waitfor ( ' /\\ $ $ /i' ) ?

$ telnet - > print (' υποδοχής ') ?

$ output = $ telnet - > waitfor ( ' /\\ $ $ /i' ) ?

print $ εξόδου?
Η 6

Αποθηκεύστε το αρχείο . Χρησιμοποιήστε το PL επέκταση .
Η
εικόνων