Πώς να αφαιρέσει την τελευταία οκτάδα σε Perl

Σύμφωνα με το δείκτη γλώσσας Tiobe , Perl είναι μία από τις πιο δημοφιλείς γλώσσες προγραμματισμού στον κόσμο . Στην ομιλία δικτύωσης , μια « οκτάδα » αναφέρεται σε ένα σύνολο αριθμών που χωρίζονται από τελείες σε μια διεύθυνση IP . Perl περιλαμβάνει εργαλεία για το χειρισμό strings . Η τελευταία οκτάδα μπορεί να αφαιρεθεί από μια διεύθυνση IP σε λίγες γραμμές Perl . Επιπλέον , Perl υποστηρίζει την ανάπτυξη διαδραστικών ? Προγραμματιστές μπορούν να γράψουν και να τρέξει προγράμματα ταυτόχρονα . Οδηγίες
Η

1 Ανοίξτε ένα διερμηνέα Perl . Η θέση του θα εξαρτηθεί από την πορεία καθορίζεται κατά την εγκατάσταση της Perl 2

Εισάγετε τον παρακάτω κωδικό : .

$ IP = " 192.168.2.1 "

Αυτό δημιουργεί η μεταβλητή " IP ", η οποία κατέχει την αξία της συμβολοσειράς μας
εικόνων 3

Εισάγετε τον παρακάτω κωδικό : .

@ an_array = διάσπαση ( . //, $ IP )

ο κωδικός αυτός χωρίζει τη διεύθυνση IP για τις περιόδους . Για να αφαιρέσετε το τελευταίο στοιχείο , χρησιμοποιήστε ένα κομμάτι array , όπως έτσι .

@ An_array [ 0 , -1 ]
Η
εικόνων