Come utilizzare Perl per ottenere Epoch Data

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.

istruzione

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.


Articoli Correlati