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

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

Type " print tid ; " . ( Uten anførselstegn ) . Denne koden kaller tid -funksjonen for å få den epoken tid , skriver den deretter til skjermen
3

Skriv inn følgende kode :

min $ epoken = tid ; < . br >

min @ måneder = ( " jan" , " februar " , "Mar" , " april ", " mai ", " juni" , "Jul" , " august ", " september ", " oktober " , " nov ", " des ");

min @ dager = ( " Sun" , " man ", " ti ", " Tor ", " to ", " Fri ", " Sat ");

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

print " Epoch verdi: " . $ epoke. "\\ n";

print " Konverterer til : " . $ dager [ $ WDay ] . "," . $ måneder [$ måned ] . " " . $ dagen . "," . ( $ året 1900 ) ;

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

Lagre Perl programfilen.