May 10
Un valore epoca è un timestamp Unix che calcola il numero di secondi trascorsi dal 1 gennaio 1970. Questo valore rende semplice per eseguire calcoli sulla data in vari linguaggi di programmazione. In Perl, si chiama la funzione "tempo" per ottenere la data epoca. È possibile stampare questo valore per lo schermo, salvarla in una variabile, o convertirlo in una data leggibile utilizzando gli array e la funzione "localtime" del Perl.
1 Aprire un file di programma Perl. Inserire il cursore in cui si desidera ottenere la data e l'ora epoca.
2 Tipo "tempo di stampa;" (senza virgolette). Questo codice chiama la funzione di tempo per ottenere il tempo dell'epoca, poi lo stampa sullo schermo.
3 Digitare il seguente codice:
il mio $ epoca = tempo;
i miei @months = ( "Jan", "febbraio", "Mar", "Aprile", "può", "Jun", "Luglio", "Aug", "Settembre", "Ottobre", "Novembre", " Dec ");
i miei @days = ( "Sun", "Mon", "Mar", "Mer", "Gio", "Ven", "Sat");
la mia ($ sec, $ min, $ ora, $ al giorno, $ al mese, $ l'anno, $ wday) = (localtime ($ epoca)) [0,1,2,3,4,5,6];
stampare "valore epoch:". $ Epoca. "\ N";
print "Converte a:". $ giorni [$ wday]. ",". $ mesi [$ al mese]. "". $ Giorno. ",". ($ Anno + 1900);
Questo codice ottiene il numero di un'epoca e lo salva in una variabile. Si crea quindi due array, uno per mesi e uno per i giorni feriali. La riga successiva utilizza la funzione "localtime" per convertire la data epoca in variabili indipendenti, ciascuno con differenti parti di una data e ora. Le ultime due righe stampano il valore epoch su una linea e la sua data corrispondente compreso il giorno della settimana, mese, giorno del mese e dell'anno nella riga successiva.
4 Salvare il file di programma Perl.