Un valor de época es una marca de tiempo Unix que calcula el número de segundos que han pasado desde 01 de enero 1970 . Este valor hace que sea fácil de realizar cálculos con fechas en varios lenguajes de programación . En Perl , se llama a la función de "tiempo" para obtener la fecha época. Puede imprimir este valor a la pantalla , guardarlo en una variable, o convertirla en una fecha legible utilizando matrices y la función " localtime " de Perl. Instrucciones
1

Abra un archivo de programa Perl. Inserte el cursor donde desee para obtener la fecha y hora época
2

Type " tiempo de impresión ; ." (Sin comillas) . Este código llama a la función de tiempo para obtener el tiempo de la época , y luego lo imprime en la pantalla
3

Escriba el siguiente código:

my $ época = tiempo ; < . br>

my @ mes = (" Jan" , " mar ", " Mar" , " abril ", " mayo ", " junio ", " julio ", " agosto ", " septiembre ", " octubre " , " noviembre ", " diciembre ");

my @ día = ( "Sun ", " Mon" , " mar ", " mar ", " Jue ", " Vie ", " Sat" ) ;

my ($ s, $ min , $ hora , $ dia, $ mes , $ año , $ wday ) = ( localtime ($ época ) ) [ 0,1,2,3,4,5,6 ] ;

print " valor época: " . $ época. " \\ n";

print " Se convierte en : " . $ día [$ wday ] . " , " . $ meses [$ mes ] . " " . $ día . " , " . ($ año 1900 ) ;

Este código obtiene el número época y lo guarda en una variable. A continuación, crea dos matrices , una para el mes y uno para los días laborables . La siguiente línea utiliza la función " localtime " para convertir la fecha época en variables independientes , cada uno con diferentes partes de una fecha y hora . Las dos últimas líneas de imprimir el valor de época en una línea y su fecha correspondiente incluyendo el día de la semana , mes , día del mes y año en la línea siguiente .
4

Guardar el archivo de programa Perl. < Br >