Πώς να Γύρο σε Ακέραιο σε Perl

Perl δεν διαθέτει ενσωματωμένη λειτουργία που έχει σχεδιαστεί ειδικά για να στρογγυλοποιεί τους αριθμούς κινητής υποδιαστολής σε ακέραιους αριθμούς , αλλά μπορείτε να γράψετε τη δική σας λειτουργία που ενσωματώνει τη λειτουργία sprintf να στρογγυλοποιεί τους αριθμούς αυτούς στο πλησιέστερο ακέραιο . Η λειτουργία sprintf παίρνει δύο επιχειρήματα , μια μορφή και μια λίστα . Ο κατάλογος είναι απλά ο αριθμός που θέλετε να στρογγυλοποιεί προς τα πάνω ή προς τα κάτω . Χρησιμοποιήστε " % .0 f" , όπως τη μορφή , το οποίο αφηγείται την λειτουργία που ο αριθμός κινητής υποδιαστολής και θέλετε να το κάνει στρογγυλοποίηση στο μηδέν ψηφία μετά την υποδιαστολή . Οδηγίες
Η

1 Ανοίξτε ένα αρχείο προγράμματος Perl . Πληκτρολογήστε τον ακόλουθο κώδικα :

υπο intCheck {

$ μου num = στροφή ?

Επιστρέψει ( $ num = ~ m /^ \\ d + $ /) ?

}

Αυτό δημιουργεί μια λειτουργία που ονομάζεται " intCheck " που παίρνει για πρώτη φορά ένα επιχείρημα που διαβιβάζονται σε αυτήν και την αποθηκεύει σε μια μεταβλητή που ονομάζεται " $ num , " και στη συνέχεια επιστρέφει " true" , αν ο αριθμός αυτός είναι ένας ακέραιος αριθμός ή " false" , αν δεν είναι 2

Πληκτρολογήστε τον ακόλουθο κώδικα : .

υπο γύρο {

μου $ var = στροφή ?

αν ( intCheck ( $ var - 0.5 ) ) { var $ var = $ 0.1 + ? }

sprintf επιστροφής ( " % .0 f " , $ var ) ?

}

Αυτό δημιουργεί μια λειτουργία που ονομάζεται « γύρο». Παίρνει το επιχείρημα που διαβιβάζονται σε αυτήν και την αποθηκεύει στη μεταβλητή " $ var » . Καλεί , τότε η συνάρτηση intCheck και περνά το μεταβλητό αριθμό μείον 0,5 . Εάν η λειτουργία intCheck επιστρέφει " αληθές ", η $ var έχει 0,1 προστεθούν σε αυτό . Ο γύρος λειτουργία συνέχεια στρογγυλοποιεί τη μεταβλητή στον πλησιέστερο ακέραιο αριθμό και επιστρέφει
εικόνων 3

Πληκτρολογήστε τον ακόλουθο κώδικα : .

Γύρο εκτύπωσης ( 4.49 ) . " \\ n" ?

γύρο εκτύπωσης ( 4.51 ) . " \\ n" ?

γύρο εκτύπωσης ( 4.5 ) . " \\ n" ?

Αυτές οι γραμμές δοκιμάσει το γύρο λειτουργία . Η πρώτη γραμμή γύρους σε τέσσερα και οι επόμενες δύο γραμμές γύρο μέχρι πέντε .
Η

4 Αποθηκεύστε το αρχείο Perl .
Η
εικόνων