Un valore epoca è un timestamp Unix che calcola il numero di secondi trascorsi dal 1 gennaio 1970. Tale valore rende semplice per eseguire calcoli su date in vari linguaggi di programmazione . In Perl , si chiama la funzione "tempo" per ottenere la data epoca . È possibile stampare questo valore per lo schermo , salvarlo in una variabile , o convertirlo in una data leggibile utilizzando gli array e la funzione " localtime " del Perl . Istruzioni
1

Aprire un file di programma Perl . Inserire il cursore dove si vuole ottenere la data epoca e ora
2

tipo "tempo di stampa ; " . (Senza virgolette) . Questo codice chiama la funzione di tempo per ottenere il tempo di un'epoca , poi lo stampa sullo schermo
3

Digitare il seguente codice:

my $ epoca = tempo ; < . br>

mio @ mesi = ( " Jan" , " feb " , " Mar" , " aprile " , "Maggio" , " giugno " , " luglio " , " agosto " , " set " , " set " , " Novembre " , " Dicembre ");

mio @ giorni = ( " Sun " , " lun " , "Mar " , " mer " , " gio " , " ven" , " sab ");

mio ( $ sec, $ min, $ ore , $ giorno , $ mese , $ anno , $ wday ) = ( localtime ( $ epoca) ) [ 0,1,2,3,4,5,6 ] ; print

" valore Epoca: " . $ epoca . " \\ n";

stampa " Converte in : " . $ giorni [$ wday ] . "," . $ mesi [ $ mese ] . " " . $ giorno . "," . ( $ l'anno 1900 ) ;

Questo codice ottiene il numero di un'epoca e lo salva in una variabile . Si crea quindi due array , uno per mese e uno per i giorni feriali . La linea successiva utilizza la funzione " localtime " per convertire la data epoca in variabili separate, ciascuna con diverse parti di una data e un'ora . Le ultime due righe stampano il valore epoch su una sola riga e la data corrispondente compreso il giorno della settimana, mese , giorno del mese e dell'anno nella riga successiva .
4

Salvare il file di programma Perl . < Br >