Πώς να δημιουργήσετε μια απλή Telnet Script σε Perl

Γράψτε μια Perl ( Πρακτική Εξόρυξη και Γλώσσα Έκθεση ) σενάριο για να δημιουργήσει μια σύνδεση telnet σε έναν απομακρυσμένο server , όταν έχετε επαναλαμβανόμενες εργασίες διαχείρισης της γραμμής εντολών ( όπως parsing αρχείων καταγραφής ) που πρέπει να εκτελούνται τακτικά. Μπορείτε να μόχλευσης Perl ενότητες που βρίσκονται στο διεθνώς αντικατοπτρίζεται CPAN ( Comprehensive Perl Archive Network) ιστοσελίδα αντί να γράψω όλες τις απαιτούμενες μεθόδους από το μηδέν . Χρησιμοποιήστε το Net :: Telnet ενότητα για να δημιουργήσετε ένα μικρό script και να δημιουργήσει μια σύνδεση telnet . Τα πράγματα που θα χρειαστείτε
υπολογιστή με Windows με το λογισμικό Perl γλώσσα προγραμματισμού ( όπως ActivePerl ) που έχουν εγκατασταθεί
Net : μονάδα Telnet Perl εγκατασταθεί
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Κάντε κλικ το κουμπί " Έναρξη " στη γραμμή εργασιών των Windows και κάντε κλικ στο κουμπί Αναζήτηση . Πληκτρολογήστε " cmd " στο πλαίσιο αναζήτησης . Πατήστε το πλήκτρο "Enter" . Πληκτρολογήστε " σημειωματάριο " χωρίς εισαγωγικά στη γραμμή εντολών και πατήστε το πλήκτρο "Enter" 2

Πληκτρολογήστε το ακόλουθο κείμενο στο πρόγραμμα επεξεργασίας Σημειωματάριο που εμφανίζεται : . !

# /Usr /bin /perl

χρησιμοποιήσετε Net :: Telnet ? $ tlnt = νέα Net :: Telnet ( Timeout = > 10 , Errmode = > ' πεθαίνουν ' ) ? $ tlnt - > ανοικτό ( « telnet_server_IP » ) ? $ tlnt - > waitfor ( ' /Είσοδος : $ /i' ) ? $ tlnt - > print (' user_name ') ? $ tlnt - > waitfor ( ' /password : $ /i' ) ? $ tlnt - > print (' account_password ') ? $ tlnt - > waitfor ( ' /\\ $ $ /i' ) ? $ tlnt - > print ( «ποιος» ) ? $ output = $ tlnt - > waitfor ( ' /\\ $ $ /i ' ) ? print $ εξόδου?

Αντικαταστήστε user_name με το όνομα του λογαριασμού που έχει πρόσβαση telnet με το διακομιστή telnet , αντικαταστήστε account_password με τον κωδικό πρόσβασης για το λογαριασμό που έχει πρόσβαση telnet , και αντικαταστήσει telnet_server_IP με τη διεύθυνση IP του διακομιστή telnet .

Σημειώστε ότι η μονάδα Net :: Telnet καλείται στην αρχή του σεναρίου telnet και οι μέθοδοι που χρησιμοποιούνται στη δέσμη ενεργειών που περιλαμβάνονται στην ενότητα .

Η

3 Κάντε κλικ στο μενού Αρχείο και επιλέξτε Αποθήκευση ως από το μενού που εμφανίζεται . Πληκτρολογήστε " telnettest.pl " ( μαζί με τα εισαγωγικά ) στο πλαίσιο Όνομα αρχείου . Κάντε κλικ στο πλαίσιο Αποθήκευση ως τύπου και επιλέξτε Όλα τα αρχεία . Κάντε κλικ στο κουμπί "Αποθήκευση" .
Η 4

Τύπος " telnettest.pl " στη γραμμή εντολών και πατήστε το πλήκτρο "Enter" . Θα εμφανιστεί ένα μήνυμα που επιβεβαιώνει ότι το σενάριο Perl έχει δημιουργήσει μια σύνδεση telnet με το διακομιστή telnet .
Η
εικόνων