Cómo utilizar Perl para Obtener Época Fecha

Un valor de época es una marca de tiempo Unix que calcula el número de segundos que han pasado desde el 1 de enero de 1970. Este valor hace que sea sencillo para realizar cálculos en las 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 en la pantalla, guardarlo en una variable, o convertirla en una fecha legible utilizando matrices y función "localtime" de Perl.

Instrucciones

1 Abrir un archivo de programa Perl. Insertar el cursor donde desea obtener la fecha y la hora época.

2 Tipo de "tiempo de impresión;" (sin comillas). Este código llama a la función de tiempo para obtener el tiempo de la época, a continuación, lo imprime en la pantalla.

3 Escriba el siguiente código:

mi época $ = tiempo;

mis @months = ( "Jan", "febrero", "Mar", "apr", "puede", "Jun", "julio", "agosto", "SEP", "octubre", "noviembre", " Dic");

mis @days = ( "Sun", "Mon", "mar", "Mie", "Jue", "Vie", "Sat");

mi ($ seg, min $, $ hora, día $, $ mes, $ año, $ wday) = (localtime ($ época)) [0,1,2,3,4,5,6];

imprimir "valor de la época:". $ Época. "\norte";

print "Se convierte en:". $ días [$ 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 meses 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 se imprimen el valor de la época en una línea y su fecha correspondiente incluyendo el día de la semana, mes, día del mes y el año en la línea siguiente.

4 Guarde el archivo de programa Perl.