Foro - Perl en Español

por **princi** » 2017-04-19 07:19 @346

Hola.

Quería saber si hay algún módulo que permita cambiar una fecha y hora, con segundos escalares, por ejemplo: 2017 0419 0907 39.3 (aaaa mmdd hhmm seg) a formato UNIX. Encontré módulos para trabajar con fechas pero no puedo encontrar cómo trabajar con segundos en escalar. Disculpen mi ignorancia. Desde ya, agradezco su ayuda.

Saludos.

#!/usr/bin/env perl
use v5.14;
use utf8;
 
use Time::Local;
 
 
my $time_txt = '2017 0419 1620 39.3';
 
my($año, $mes, $día, $horas, $minutos, $segundos) = $time_txt =~ /^(\d{4}) (\d{2})(\d{2}) (\d{2})(\d{2}) (\d+)/;
#say $año, $mes, $día, $horas, $minutos, $segundos;
 
$mes--;                 # consistente con la función localtime() y gmtime()
 
my $time_unix_local = timelocal($segundos, $minutos, $horas, $día, $mes, $año);
 
say $time_unix_local;   # 1492611639
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Con eso obtienes la fecha UNIX en la zona horaria local. Si quieres tener la fecha en la zona horaria GMT, debes usar la función timegm(). Más información en Time::Local

Foro - Perl en Español

Convertir fecha y hora a formato UNIX

Convertir fecha y hora a formato UNIX

Publicidad

Re: Convertir fecha y hora a formato UNIX

¿Quién está conectado?