Πώς να χρησιμοποιήσετε Perl να πάρει Ημερομηνία Εποχής

Η αξία εποχή είναι μια σφραγίδα χρόνου Unix που υπολογίζει τον αριθμό των δευτερολέπτων που έχουν περάσει από πρώτης Ιανουαρίου του 1970 . Η τιμή αυτή καθιστά απλό να εκτελέσει υπολογισμούς σχετικά με τις ημερομηνίες σε διάφορες γλώσσες προγραμματισμού . Στην Perl , μπορείτε να καλέσετε τη συνάρτηση "χρόνος " για να πάρετε την ημερομηνία εποχή . Μπορείτε να εκτυπώσετε αυτή την τιμή στην οθόνη , να το αποθηκεύσετε σε μια μεταβλητή , ή να το μετατρέψει σε μια αναγνώσιμη ημερομηνία χρησιμοποιώντας πίνακες και λειτουργία " localtime " της Perl . Οδηγίες
Η

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

Τύπος " το χρόνο εκτύπωσης ? " . ( Χωρίς εισαγωγικά ) . . Αυτός ο κώδικας καλεί τη συνάρτηση του χρόνου για να πάρει το χρόνο εποχής , τότε εκτυπώνει στην οθόνη εικόνων
3

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

μου $ = εποχή του χρόνου ?

μου @ μήνες = ( " Jan" , " Φεβρουάριος " , " Mar" , " Απρίλιος " , " Μάιος " , " Ιούνιος " , " Ιούλιος " , " Αύγουστος " , " Σεπτέμβριος " , " Οκτώβριος " , " Νοέμβριος " , " Δεκέμβριος ")?

@ ημερών μου = ( "Sun " , "Mon " , " Τρι " , " Τετ " , " Παρ " , " Παρ " , " Sat " ) ?

μου ( $ sec , min $ , $ την ώρα , $ την ημέρα , $ το μήνα , $ year , $ wday ) = ( localtime ( $ εποχή ) ) [ 0,1,2,3,4,5,6 ] ?

εκτύπωσης " αξία Εποχή : " . $ εποχή . " \\ n" ?

εκτύπωσης " Μετατρέπει σε : " . $ ημέρες [ $ wday ] . "," . $ μήνες [ $ το μήνα ] . "" . $ την ημέρα . "," . ( $ 1.900 το χρόνο ) ?

Αυτός ο κώδικας παίρνει τον αριθμό εποχή και την αποθηκεύει σε μια μεταβλητή . Στη συνέχεια, δημιουργεί δύο πίνακες , ένας για μήνες και μία για τις καθημερινές . Η επόμενη γραμμή χρησιμοποιεί τη λειτουργία " localtime « να μετατρέψει την ημερομηνία εποχή σε ξεχωριστές μεταβλητές , το καθένα με διαφορετικά μέρη μιας ημερομηνίας και ώρας . Οι τελευταίες δύο γραμμές εκτυπώσετε την αξία εποχή σε μια γραμμή και την αντίστοιχη ημερομηνία του, συμπεριλαμβανομένου του ημέρα της εβδομάδας, μήνα , ημέρα του μήνα και του έτους στην επόμενη γραμμή .
Η

4 Αποθηκεύστε το αρχείο προγράμματος Perl .


Η