Πώς να διαβάσετε Από τη Μέση ενός Array σε Perl

Αν Perl έχει ένα μοναδικό και μερικές φορές σύγχυση σύνταξη , είναι ένα ισχυρό και πλήρως εξοπλισμένο γλώσσα προγραμματισμού . Μπορείτε να εκτελούν περίπλοκες εργασίες σχετικά με τους τύπους δεδομένων, όπως πίνακες χρησιμοποιώντας τυπικές λειτουργίες Perl . Για να διαβάσετε ένα Perl σειρά ξεκινώντας από το μέσον της , το μόνο που χρειάζεται να κάνετε είναι να μάθετε πόσα στοιχεία του πίνακα , και στη συνέχεια να εκτελέσει κάποια απλή αριθμητική . Οδηγίες
Η 1

Υπολογίστε το μέγεθος του πίνακα , χρησιμοποιώντας βαθμωτό μετατροπή . Για παράδειγμα , εάν έχετε μια σειρά που ονομάζεται " ονόματα " και θέλετε να ορίσετε το μέγεθος της στη μεταβλητή " arraysize , " τύπος " $ arraysize = @ ονόματα? " . Σε Perl script σας

2

Διαιρέστε την τιμή ή το μέγεθος του πίνακα ανυσμάτων από δύο , μετατρέπουν το πηλίκο σε έναν ακέραιο αριθμό , και στη συνέχεια αφαιρέστε το ένα από το τελικό αποτέλεσμα . Για παράδειγμα, πληκτρολογήστε " $ μεσαία = int ( $ arraysize /2 ) -1 ? " Σε Perl script σας . Όπως και οι περισσότερες γλώσσες προγραμματισμού , Perl αρχίζει να μετρά από το μηδέν αντί για μία . Αν έχετε επτά στοιχεία στη σειρά σας , ο υπολογισμός αυτός σας δίνει το δείκτη για το στοιχείο τρεις .
Εικόνων 3

Απόσπασμα το στοιχείο πίνακα, χρησιμοποιώντας τον αριθμό που υπολογίζεται ως δείκτη . Για παράδειγμα , πληκτρολογήστε " print $ ονόματα [ $ μεσαία ] ? " Για να εκτυπώσετε το στοιχείο λίγο πριν από τον αριθμητικό μέσο σημείο του πίνακα
Η
εικόνων .