Πώς να γράψετε ένα Perl Script Telnet

Telnet είναι ένα πρόγραμμα για την πρόσβαση σε κονσόλες κειμένου για servers . Μπορείτε να δημιουργήσετε μια δέσμη ενεργειών Perl που συνδέεται αυτόματα σε ένα διακομιστή Telnet χωρίς εισαγωγής από το χρήστη , ώστε να μπορεί να εκτελέσει τις εντολές αυτόματα . Δυστυχώς , δεν μπορείτε να καλέσετε την εντολή Telnet απευθείας μέσα από ένα σενάριο Perl , διότι δέχεται μόνο εντολές από την κονσόλα . Επίσημο αρχείο CPAN μονάδα Perl περιέχει το Net :: Telnet μονάδα , η οποία υλοποιεί το πρωτόκολλο Telnet και σας επιτρέπει να προσθέσετε λειτουργίες Telnet σε Perl script σας . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη", " Όλα τα προγράμματα ", " εξαρτήματα" και 2

Εγκατάσταση Net :: Telnet πληκτρολογώντας " perl " Command Prompt . " - MCPAN - e » εγκατάσταση Net :: Telnet " στη γραμμή εντολών και πατώντας το πλήκτρο " Enter".
εικόνων 3

Ανοίξτε το Notepad ή το αγαπημένο σας πρόγραμμα επεξεργασίας κώδικα .
Η 4

Αντιγράψτε και επικολλήστε το ακόλουθο κείμενο στο πρόγραμμα επεξεργασίας κειμένου :

χρησιμοποιήσετε Net :: Telnet ?

$ telnet = νέα Net :: Telnet ( Timeout = > 10 , πώληση

Errmode = > ' πεθαίνουν '

Προτροπή = > ' /\\ $ $ /i' ) ?

$ telnet - > ανοικτό ( « telnet.website.com » ) ?

$ telnet - > login ( « όνομα » , «κωδικό πρόσβασης» ) ?

print $ telnet - > cmd ( «ποιος» ) ?
5

Αντικατάσταση " telnet.website.com " με την ιστοσελίδα ή τη διεύθυνση IP του διακομιστή Telnet , "username" με το όνομα του διακομιστή Telnet απαιτεί και "password" με κωδικό όνομα του χρήστη στο διακομιστή Telnet .

6

Τύπος άλλα Perl εντολές θέλετε το σενάριο Telnet να εκτελέσει αφού συνδέεται με το διακομιστή Telnet .
Η

7 Αποθηκεύστε το σενάριο Perl κάνοντας κλικ στο " Αρχείο" και " Αποθήκευση ", πληκτρολογώντας μια όνομα για το σενάριο και πατώντας το πλήκτρο " Enter".
Η
εικόνων