Hvordan bruke Perl å få Epoch Dato

En epoke verdi er et Unix tidsstempel som beregner antall sekunder som har gått siden den første januar, gjør 1970. Denne verdien det enkelt å utføre beregninger på datoer i ulike programmeringsspråk. I Perl, kaller du "tid" funksjonen for å få den epoken dato. Du kan skrive ut denne verdien til skjermen, lagre det i en variabel, eller konvertere den til en lesbar dato med arrays og Perl er "local" -funksjon.

Bruksanvisning

1 Åpne et Perl program fil. Sett markøren der du ønsker å få den epoken dato og klokkeslett.

2 Skriv "print tid;" (Uten anførselstegn). Denne koden kaller tidsfunksjonen for å få epoken tid, så skrives det til skjermen.

3 Skriv inn følgende kode:

min $ epoken = tid;

mine @months = ( "Jan", "februar", "Mar", "april", "mai", "juni", "Jul", "august", "september", "oktober", "november", " desember ");

mine @days = ( "Sun", "man", "ti", "Tor", "to", "Fri", "Sat");

min ($ sek, $ min, $ time, $ dag, $ måned, $ året, $ Wday) = (lokaltid ($ epoken)) [0,1,2,3,4,5,6];

skrive "Epoch verdi:". $ Epoke. "\ N";

print "Konverterer til:". $ dager [$ Wday]. ",". $ måneder [$ i måneden]. "". $ Dagen. ",". ($ År + 1900);

Denne koden får epoken nummer og lagrer det i en variabel. Det skaper da to matriser, en for måneder og én for ukedager. Den neste linjen bruker "local" funksjon for å konvertere epoken dato i separate variabler, hver med ulike deler av en dato og klokkeslett. De to siste linjene skrives ut epoken verdi på én linje, og den tilsvarende dato inkludert ukedag, måned, dag i måneden og året på neste linje.

4 Lagre Perl programfilen.