Perl - Fecha y hora

Este capítulo le dará los conocimientos básicos sobre cómo procesar y manipular fechas y horas en Perl.

Fecha y hora actual

Empecemos con localtime()función, que devuelve valores para la fecha y hora actuales si no se proporcionan argumentos. A continuación se muestra la lista de 9 elementos devuelta porlocaltime función mientras se usa en el contexto de lista -

sec,     # seconds of minutes from 0 to 61
min,     # minutes of hour from 0 to 59
hour,    # hours of day from 0 to 24
mday,    # day of month from 1 to 31
mon,     # month of year from 0 to 11
year,    # year since 1900
wday,    # days since sunday
yday,    # days since January 1st
isdst    # hours of daylight savings time

Pruebe el siguiente ejemplo para imprimir diferentes elementos devueltos por la función localtime ():

#!/usr/local/bin/perl
 
@months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
@days = qw(Sun Mon Tue Wed Thu Fri Sat Sun);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print "$mday $months[$mon] $days[$wday]\n";

Cuando se ejecuta el código anterior, produce el siguiente resultado:

16 Feb Sat

Si va a utilizar la función localtime () en un contexto escalar, devolverá la fecha y la hora de la zona horaria actual establecida en el sistema. Pruebe el siguiente ejemplo para imprimir la fecha y hora actuales en formato completo:

#!/usr/local/bin/perl
 
$datestring = localtime();
print "Local date and time $datestring\n";

Cuando se ejecuta el código anterior, produce el siguiente resultado:

Local date and time Sat Feb 16 06:50:45 2013

Hora GMT

La función gmtime()funciona igual que la función localtime () pero los valores devueltos están localizados para la zona horaria estándar de Greenwich. Cuando se llama en el contexto de la lista, $ isdst, el último valor devuelto por gmtime, es siempre 0. No hay horario de verano en GMT.

Debe tomar nota del hecho de que localtime () devolverá la hora local actual en la máquina que ejecuta el script y gmtime () devolverá la hora universal de Greenwich, o GMT (o UTC).

Pruebe el siguiente ejemplo para imprimir la fecha y hora actuales pero en la escala GMT:

#!/usr/local/bin/perl

$datestring = gmtime();
print "GMT date and time $datestring\n";

Cuando se ejecuta el código anterior, produce el siguiente resultado:

GMT date and time Sat Feb 16 13:50:45 2013

Formatear fecha y hora

Puede usar la función localtime () para obtener una lista de 9 elementos y luego puede usar la printf() función para formatear la fecha y la hora según sus requisitos de la siguiente manera:

#!/usr/local/bin/perl
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

printf("Time Format - HH:MM:SS\n");
printf("%02d:%02d:%02d", $hour, $min, $sec);

Cuando se ejecuta el código anterior, produce el siguiente resultado:

Time Format - HH:MM:SS
06:58:52

Época

Puede usar la función time () para obtener el tiempo de época, es decir, el número de segundos que han transcurrido desde una fecha determinada, en Unix es el 1 de enero de 1970.

#!/usr/local/bin/perl
 
$epoc = time();

print "Number of seconds since Jan 1, 1970 - $epoc\n";

Cuando se ejecuta el código anterior, produce el siguiente resultado:

Number of seconds since Jan 1, 1970 - 1361022130

Puede convertir una cantidad determinada de segundos en una cadena de fecha y hora de la siguiente manera:

#!/usr/local/bin/perl

$datestring = localtime();
print "Current date and time $datestring\n";

$epoc = time();
$epoc = $epoc - 24 * 60 * 60;   # one day before of current date.

$datestring = localtime($epoc);
print "Yesterday's date and time $datestring\n";

Cuando se ejecuta el código anterior, produce el siguiente resultado:

Current date and time Tue Jun  5 05:54:43 2018
Yesterday's date and time Mon Jun  4 05:54:43 2018

Función POSIX strftime ()

Puede utilizar la función POSIX strftime()para formatear la fecha y la hora con la ayuda de la siguiente tabla. Tenga en cuenta que los especificadores marcados con un asterisco (*) dependen de la configuración regional.

Especificador	Reemplazado por	Ejemplo
%a	Nombre abreviado del día de la semana *	Thu
%A	Nombre completo del día de la semana *	Thursday
%b	Nombre del mes abreviado *	Aug
%B	Nombre del mes completo *	August
%c	Representación de fecha y hora *	Thu Aug 23 14:55:02 2001
%C	Año dividido por 100 y truncado a entero ( 00-99)	20
%d	Día del mes, relleno con ceros ( 01-31)	23
%D	MM/DD/YYFecha corta , equivalente a%m/%d/%y	08/23/01
%e	Día del mes, relleno con espacio ( 1-31)	23
%F	YYYY-MM-DDFecha corta , equivalente a%Y-%m-%d	2001-08-23
%g	Año basado en la semana, dos últimos dígitos ( 00-99)	01
%G	Año basado en la semana	2001
%h	Nombre del mes abreviado * (igual que %b)	Aug
%H	Hora en formato 24h ( 00-23)	14
%I	Hora en formato de 12h ( 01-12)	02
%j	Día del año ( 001-366)	235
%m	Mes como número decimal ( 01-12)	08
%M	Minuto ( 00-59)	55
%n	Carácter de nueva línea ( '\n')
%p	Designación AM o PM	PM
%r	Reloj de 12 horas *	02:55:02 pm
%R	24 horas HH:MM, equivalente a%H:%M	14:55
%S	Segundo ( 00-61)	02
%t	Carácter de tabulación horizontal ( '\t')
%T	Formato de hora ISO 8601 ( HH:MM:SS), equivalente a%H:%M:%S	14:55
%u	Día de la semana ISO 8601 como número con lunes como 1( 1-7)	4
%U	Número de semana con el primer domingo como primer día de la semana uno ( 00-53)	33
%V	Número de semana ISO 8601 ( 00-53)	34
%w	Día de la semana como un número decimal con el domingo como 0( 0-6)	4
%W	Número de semana con el primer lunes como primer día de la semana uno ( 00-53)	34
%x	Representación de fecha *	08/23/01
%X	Representación de tiempo *	14:55:02
%y	Año, dos últimos dígitos ( 00-99)	01
%Y	Año	2001
%z	Desplazamiento ISO 8601 de UTC en la zona horaria (1 minuto = 1, 1 hora = 100) Si no se puede terminar la zona horaria, no hay caracteres	+100
%Z	Nombre o abreviatura de la zona horaria * Si no se puede terminar la zona horaria, no hay caracteres	CDT
%%	Una %señal	%

Veamos el siguiente ejemplo para comprender el uso:

#!/usr/local/bin/perl
use POSIX qw(strftime);

$datestring = strftime "%a %b %e %H:%M:%S %Y", localtime;
printf("date and time - $datestring\n");

# or for GMT formatted appropriately for your locale:
$datestring = strftime "%a %b %e %H:%M:%S %Y", gmtime;
printf("date and time - $datestring\n");

Cuando se ejecuta el código anterior, produce el siguiente resultado:

date and time - Sat Feb 16 07:10:23 2013
date and time - Sat Feb 16 14:10:23 2013