En epok värde är en Unix tidsstämpel som beräknar antalet sekunder som gått sedan 1 jan 1970 . Detta värde gör det enkelt att utföra beräkningar på datum i olika programmeringsspråk . I Perl , kallar du den " tid " -funktion för att få den epok datum . Du kan skriva ut det här värdet till skärmen , spara den i en variabel , eller omvandla det till en läsbar datum med matriser och Perl s " localtime " funktionen . Instruktioner
1
Öppna ett Perl programfil . Sätt markören där du vill få epok datum och tid
2
Type " print tid , " . ( Utan citationstecken ) . Denna kod anropar tiden funktionen att få epok tiden , sedan skriver den på skärmen
3
Skriv följande kod :
min $ epok = tid ; < . br >
min @ månader = ( " jan " , " feb " , " mar " , " apr " , " maj " , " jun " , " jul " , " jul " , " sep " , " okt " , " november ", " December ");
min @ dagar = ( "Sun" , "Mon ", " tis ", " tor ", " tor ", " fre" , "SAT" ),
min ( $ sekund, $ min , $ h , $ dag , $ månad , $ år , $ WDAY ) = ( localtime ( $ epok ) ) [ 0,1,2,3,4,5,6 ] ;
print " epokvärdet : " . $ epok. " \\ n ";
print " Konverterar till : " . $ dagar [ $ WDAY ] . "," . $ månader [ $ månad ] . " " . $ dag. "," . ( $ år 1900 ) ,
Denna kod får epok nummer och sparar den i en variabel . Det skapar sedan två arrayer , en för månader och en för vardagar . Nästa rad använder " localtime " -funktion för att konvertera epok dagen i separata variabler , alla med olika delar av ett datum och tid . De två sista raderna ut epokvärdet på en linje och dess motsvarande datum inklusive veckodag , månad , dag i månaden och året på nästa rad .
4
Spara Perl programfilen .
Addera ditt
