Πώς να πάρει τη διαφορά των δύο ημερομηνιών σε Perl

Στην Perl προγραμματισμό , γιατί ημερομηνίες μπορούν να έχουν χαρακτήρες όπως τα κενά , κόμματα ή γράμματα , δεν μπορείτε απλά να πάρετε δύο ημερομηνίες και να αφαιρέσετε ένα από το άλλο . Θα πρέπει να τα μετατρέψετε σε καθαρό αριθμούς για να μπορέσετε να πάρετε τη διαφορά μεταξύ των δύο? Στη συνέχεια επιστρέφουν αυτήν την τιμή για το χρήστη . Μετατρέψτε τις δύο ημερομηνίες μέχρι την εποχή του χρόνου , η οποία είναι ο υπολογισμός του αριθμού των δευτερολέπτων που έχουν περάσει από την 1 Ιανουαρίου 1970 . Αυτό σας επιτρέπει να αφαιρέσετε μια ημερομηνία αξίας από την άλλη για να πάρει τη διαφορά . Οδηγίες
Η

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

χρησιμοποιούν Ώρα :: Τοπικές ?

Η ενότητα αυτή περιέχει πληροφορίες ημερομηνίας και ώρας που πρέπει να υπολογίσουμε τις τιμές του χρόνου 2

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

print " Εισάγετε την ημέρα ( 1-31 ) : " ?

$ την ημέρα = <> ?

εκτύπωσης " Enter μήνα ( 1-12 ) : " ?

$ μήνα = <> ?

$ το μήνα = $ μήνα - 1 ?

print " Δώστε χρόνο : " ?

$ έτους = <> ?

$ year = $ το χρόνο - 1900 ?

Αυτές οι γραμμές ζητήσει από το χρήστη να εισάγετε μια ημέρα του μήνα , μήνα και έτος , όλα ως ακέραιοι . Θα πρέπει να μειώσετε την τιμή κατά ένα μήνα , επειδή η « timelocal " λειτουργία χρησιμοποιεί τις τιμές μήνα από μηδέν έως 11 , δεν είναι μία έως 12 . Επίσης , θα πρέπει να αφαιρέσουμε το 1900 από την τιμή έτους για αυτή τη λειτουργία , καθώς και . Μπορείτε να προγραμματίσετε κάποιο κώδικα ελέγχου σφάλματος για να διασφαλιστεί ότι ο χρήστης εισέρχεται σε μια σωστή τιμή , ή αν θέλετε να επιτρέψετε σε ένα χρήστη να εισάγει το όνομα ενός μήνα , όπως "Ιανουάριος", το πρόγραμμα μια λειτουργία για να μετατρέψει την τιμή στο μηδέν .

με 3

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

$ το χρόνο = timelocal ( 0,0,0 , $ την ημέρα , $ το μήνα , $ year ) ?

Αυτό δημιουργεί μια μεταβλητή $ εποχή που απαιτεί την timelocal λειτουργία για να μετατρέψει την ημερομηνία χρήστη που υποβάλλονται μέχρι την εποχή του χρόνου . Οι τρεις πρώτες παράμετροι είναι όλα μηδενικά , επειδή αντιπροσωπεύουν δευτερόλεπτα , λεπτά και ώρες . Μπορείτε να ζητήσει από το χρήστη για αυτές τις τιμές , καθώς , αν θέλετε . Η timelocal συνάρτηση επιστρέφει σφάλμα αν μια ημερομηνία δεν υπάρχει , όπως Μαρτίου 35 ή ακόμα και 31η του Ιούνη , οπότε βεβαιωθείτε ότι οι έλεγχοι κωδικό σας για αυτές τις δυνατότητες
Η

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

$ curtime = χρόνος ?

$ diff = $ curtime - $ το χρόνο ?

Η πρώτη γραμμή δημιουργεί μια μεταβλητή που ονομάζεται $ curtime που χρησιμοποιεί τη συνάρτηση του χρόνου για να επιστρέψει την τρέχουσα ημερομηνία στην εποχή χρόνο . Η δεύτερη γραμμή δημιουργεί μια μεταβλητή που ονομάζεται $ diff που παίρνει τη διαφορά της τρέχουσας ημερομηνίας μείον την ημερομηνία χρήστη που υποβάλλονται . Το αποτέλεσμα ακέραιος είναι ο αριθμός των δευτερολέπτων που υπάρχουν μεταξύ των δύο ημερομηνιών . Αν ο αριθμός είναι θετικός , τότε η ημερομηνία χρήστης έρχεται πριν από την τρέχουσα ημερομηνία . Αν ο αριθμός είναι αρνητικός , έρχεται μετά από
5

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

If ( $ diff > 0 ) {

$ diff = int ( $ diff /60 /60/24) ?

print $ diff . " Ημέρες έχουν περάσει από την ημερομηνία που δώσατε . "?

} Else {

$ diff = abs ( int ( $ diff /60 /60/24) ) ?

εκτύπωση " Υπάρχουν " . $ diff . " Περισσότερες ημέρες μέχρι την ημερομηνία που δώσατε . "?

}

Το εάν οι έλεγχοι λειτουργία για να δείτε αν η ημερομηνία χρήστη που υποβάλλονται είναι πριν ή μετά την τρέχουσα ημερομηνία , απλά να γνωρίζουν ποια δήλωση εκτύπωση στην οθόνη . Σε αμφότερες τις περιπτώσεις , η αξία $ diff μετατρέπει από δευτερόλεπτα σε ημέρες , και στη συνέχεια προς ένα ακέραιο από ένα πλωτήρα ( για να αποφύγετε την εκτύπωση πολλά δεκαδικά ψηφία ) . Εάν η τιμή είναι αρνητική , η λειτουργία κοιλιακούς παίρνει την απόλυτη τιμή , ουσιαστικά μετατρέποντας το αρνητικό αριθμό σε θετικό αριθμό . Για παράδειγμα , " -15 ημέρες " γίνεται " 15 ημέρες. "
Η 6

Αποθήκευση και εκτελέστε το πρόγραμμα Perl .
Η
εικόνων