En epoke værdi er en Unix tidsstempel , der beregner det antal sekunder, der er gået siden 1 januar 1970 . Denne værdi gør det nemt at udføre beregninger på datoer i forskellige programmeringssprog. I Perl, kalder dig "tid "-funktionen til at få den epoke dato. Du kan udskrive denne værdi til skærmen , gemme det i en variabel , eller konvertere den til en læsbar dato ved hjælp arrays og Perl er " localtime "-funktion. Instruktioner
1
Åbn en Perl program fil. Sæt markøren , hvor du ønsker at få epoken dato og tid
2
Type " print tid ." (Uden anførselstegn) . Denne kode kalder den tid, funktionen til at få den epoke tid, så udskriver det til skærmen
3
Indtast følgende kode : Hej
min $ epoke = tid < . br >
min @ måneder = (" jan" , " Februar ", " mar" , " apr" , "kan", "juni ", " juli ", " august ", " september ", " oktober " , " november ", " December ");
min @ dage = ( "Sun ", " Mon ", " Tue ", " Wed ", " Tor ", " Fre ", " Sat "); < br >
min ( $ sek, $ min, $ time , $ dag , $ måned , $ år , $ wday ) = ( localtime ( $ epoke ) ) [ 0,1,2,3,4,5,6 ]
print " Epoch værdi : " . $ epoke . "\\ n";
print " Konverterer til:". $ dage [$ wday ]. "," . $ måneder [$ måned ] . "" . $ dag . "," . ( $ år 1900 ),
Denne kode får epoken nummer og gemmer det i en variabel. Den laver to matrixer , én for måneder og én for hverdage . Den næste linje bruger " localtime "-funktionen til at konvertere epoken dato i separate variabler , hver med forskellige dele af en dato og klokkeslæt. De sidste to linjer udskriver epokeværdien på én linje og dens tilsvarende dato herunder ugedag, måned, dag i måneden og året på den næste linje.
4
Gem Perl program fil. < Br >