Ako používať Perl získať Epoch Dátum

Hodnota epocha je Unix časovú pečiatku , ktoré počíta počet sekúnd , ktoré uplynuli od 1.1.1970 . Táto hodnota je jednoduché vykonávať výpočty na dátach v rôznych programovacích jazykoch . V Perlu , môžete volať funkciu " čas " , aby sa dátum epochy . Môžete vytlačiť túto hodnotu na displeji , uložiť ho do premennej , alebo previesť do čitateľného dáta pomocou poľa a funkciu " localtime " Perlu . Pokyny dovolená 1

Otvorte súbor programu v Perlu . Vložte kurzor tam , kde chcete , aby sa dátum a čas epochy
2 Typ

" print čas , " . (Bez úvodzoviek ) . . Tento kód volá časovú funkciu získať čas epochy , a potom ju vytlačí na obrazovku
3

zadajte nasledujúci kód :

môj $ epochy = čas ;

mojich @ mesiacov = ( " Jan" , " Február " , " Marec " , " Apríl " , " Máj " , " Jún " , " Júl " , " August " , " September " , " Október " , " november " , " december " ) ;

moje @ dni = ( " Sun " , " Po " , " Ut " , " St " , " Štvrtok " , " Piatok " , " Sobota " ) ;

môj ( $ s , $ min , $ hodinu , $ den , $ za mesiac , $ rok , $ wday ) = ( localtime ( $ epocha ) ) [ 0,1,2,3,4,5,6 ] ;

print " Epocha hodnota " . $ Epocha . " \\ N " ;

print " Prevádza sa : " . $ dni [ $ wday ] . " , " . $ mesiacov [ $ mesačne ] . " " . $ Deň . " , " . ( $ Rok 1900 ) ;

Tento kód dostane číslo epochy a uloží ju do premennej . To potom vytvára dve polia , jedno pre mesiace a jeden pre všedný deň . Ďalší riadok pomocou funkcie " localtime " previesť dátum epochy do samostatných premenných , každý s rôznymi časťami dátumu a času . Posledné dva riadky vytlačiť hodnotu epochy na jednom riadku a jeho zodpovedajúci dátum vrátane dňa v týždni , mesiac , deň v mesiaci a rok na ďalšom riadku .
4

Uložte súbor programu Perl .

• Predchádzajúca strana: Ako používať premenné v jazyku Perl regulárne výrazy 
• Ďalšia strana: Ako sa k nám Array veľkosť v Perlu